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This publication is organized in three 
chapters. Chapter 1 is an introduction 
describing the relationship between the 
compiler and the operating system, and the 
overall organization of the compiler. 
Chapter 2 is a general description of each 
logical phase followed by descriptions of 
each of the physical phases contained in 
the logical phase. Chapter 3 consists of 
flowcharts, tables and routine directories. 
The flowcharts show the relationship 
between the routines of each phase, while 
the tables and directories list the 
routines and their functions. 


The appendixes contain topics of special 
importance and reference material. 


The convention has been followed in this 
manual of printing all PL/I language items 
in block capitals. 
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PURPOSE OF THE COMPILER 


The IBM System/360 Operating System PL/I 
(F) Compiler analyzes and processes source 
programs written in PL/I, and translates 
them into a form suitable for input to the 
Linkage Editor or Linkage Loader. When 
errors are detected in the source program, 
appropriate diagnostic messages are 
produced. The compiler functions within 
IBM System/360 Operating System and may be 
used on machines where at least 45,056 
(44K) bytes of main storage are available 
for the compilation (exclusive of storage 
requirements for the operating system). 


THE COMPILER AND THE OPERATING SYSTEM 


The PL/I (F) Compiler is a processing 
program of IBM System/360 Operating System. 
The compiler consists of a number of phases 
under the supervision of compiler control 
routines. The compiler communicates with 
the control program of the operating 
system, for input/output and other 
services, through the control routines. 


A compilation is introduced as a job 
step under the control of the operating 
System, via the JOB statement, the execute 
(EXEC) statement, and the data definition 
(DD) statements of the Job Control 
Language, for the input/output data sets. 
Cataloged procedures are provided to keep 
these statements to a minimum. A 
discussion of the introduction of a 
compilation as a job step, and of the 
available cataloged procedures, is given in 
the publication IBM System/360 Operating 
System, PL/I (F) Proarammer's Guide. 


The source program to be compiled 
appears as input to the compiler on tne 
SYSIN data set. The compiler uses SYSUT1 
(required if the main storage is 
insufficient to contain the program) and 
SYSUT3 (required if the 48-character set or 
the compile-time processor is used) as work 
data sets. The SYSPRINT data set is 
mandatory. The SYSPUNCH and SYSLIN data 
sets are used, depending on the options 
specified by the source programmer, to 
contain the output from the compiler. 


The overall data flow associated with a 
compilation, and the data sets used in the 
compilation, are illustrated in Figure 1. 
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A compilation is initiated by loading 
the compiler control routines from the Link 
Library. The compiler control routines 
then carry out their own initialization, 
including loading those compiler control 
routines which remain in storage throughout 
the compilation. These routines perform 
the following functions: 


1. Act as the interface between the 
compiler phase and the operating 
System, controlling all input/output, 
storage allocation, program 
interruptions, storage dumping, etc. 


2. Supervise the loading of compiler 
phases in accordance with source 
program options and information 
obtained from the source program by 
the compiler phases. 


3. Supervise all workspace used by the 
compiler for information concerning 
the source program. This includes any 
spilling from main storage to 
auxiliary storage in order to 
accommodate large source programs, the 
conversion of symbolic references to 
absolute addresses, and the conversion 
from absolute addresses to symbolic 
references. 


4, Provide a number of routines to assist 
in compiler debugging. 


The compiler options specified are 
interpreted and the appropriate action 
taken. The environmental options, such as 
Storage size and device type, are used to 
calculate the text and dictionary block 
size and the "spill" point (i.e. the point 
at which the main storage available is 
insufficient to contain the dictionary and 
text). 


To determine the block size a table 
contained in Phase AB is used. The storage 
Size is used as the argument to search the 
table. When the correct entry is found, 
the text block size and the dictionary 
block size values are extracted and used 
for the compilation. . 


The options are instructions to the 
compiler. Some of these require a phase to 
be loaded that would not otherwise be 
loaded. When an option of this type is 
found, a request for the phase required is 
inserted into the status byte in the phase 
directory. Other options are in the form 
of instructions to a phase that is always 
loaded. These instructions are also placed 
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in coded form in the communications region 
, of the dictionary, generally in the Control 
Code word (see CCCODE in Appendix B). 


COMPILER ORGANIZATION 


The PL/I (F) Compiler comprises a number of 
logical phases, each of which consists of 
several physical phases as shown in 
Appendix A. 


The compiler phases and their 
corresponding functions are indicated in 
Figure 2, and the organization of the 
compiler is shown in Figure 3. 


Control is passed between the phases of 
the compiler via the control routines. 2. 
After each phase has been executed, it 
branches to the control routine, which 
selects from its load list the next phase 
to be executed. 


Communication between the phases is 
implemented by the following: 


1. The text string. The text string at 
the start of the compilation is input 
text. This is converted by the 
compile-time processor, if necessary, 
into a string which is PL/I source 
text. The characters in this string 
are translated into a code internal to 
the compiler. The phases of the 
compiler gradually process the text 
until the final form is the object 


program, consisting of a string of 
machine instructions. For the 
compiler proper, the text code bytes 
used, and formats of statements at 
different stages of the compilation, 
will be found in Appendix D. 


The text is broken down into a number 
of blocks, depending upon the size of 
the machine. Each block has a 
symbolic name which is independent of 
the physical location of the block in 
storage. Thus, the text blocks may be 
moved around in main storage under the 
supervision of the compiler control 
routines, and spilled on to auxiliary 
storage if insufficient main storage 
is available. 


The dictionary. The dictionary 
consists of a number of blocks, each 


with a symbolic name. Part of the 
first dictionary block is used as a 
communications region (see Appendix F) 
between phases, and for this reason 
the first block is never spilled, even 
when the source program to be compiled 
exceeds available storage. The 
communications region contains such 
information as the addresses of the 
heads of chains, the symbolic start of 
text, etc. The remainder of the 
dictionary contains all information 
relating to identifiers appearing in 
the program, temporary storage areas 
required, etc. For the compiler 
proper, the format of all dictionary 
entries will be found in Appendix C. 
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Compile-time Processor 
Read-In 


| 
| 
| 
| 
| 
| 
| 
| 
| Dictionary 
| 
I 
| 
| 
| 
| 
| 
|Pretranslator 


Translator 


Aggregates 


Optimization 


Pseudo-Code 


. Processes those features of the language that are more 
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Function | 


ಳಾ ದ ee ಎ er ಅತಾ ಅರಾ, ಇತ್ತ 


Reads input text, executes any compile-time statements 
contained in it, and modifies text as directed, producing 
modified text for further compiler processing. 


Checks source program syntax and removes all superfluous 
characters, such as comments and non-significant blanks, 
from the text string. 


Removes all BCD identifiers and attribute declarations from 
the source string, and replaces them by symbolic references 
to dictionary entries. The dictionary entries contain all 
the consistent declared attributes, and all the attributes 
specified in the language in default of source program 
specifications. Error messages are generated for all 
inconsistent attributes. 


easily processed in their original PL/I form, than when the| 
original syntactic form has been lost in later phases. Thej 
Pretranslator carries out these modifications which include| 
the rearranging of the order of certain I/O statements, the| 
creation of temporary variables for procedure arguments 
which are expressions, the conversion of array and 
structure assignments to a series of DO-loops surrounding 
scalar assignments, and the removal of iSUB expressions. 


Converts the original PL/I syntactic form to an internal 
syntactic form, referred to as "triples."  Triples consist 
of the original source program operators and operands, but 
rearranged so that the operations specified in the source 
String may be carried out in their proper order. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
Carries out all structure and array mapping, so that l 
elements are aligned on the correct storage boundaries. | 
When it is not possible to carry out the mapping at | 
compilation time, such as when the aggregates contain | 
string lengths or array bounds which are specified by | 
expressions, object code is produced to do it at object | 
time. This phase also checks that items’ DEFINED on arrays | 
and structures can be mapped consistently. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


If optimization is requested, the optimization phases 
attempt to reorder triples for subscript address 
calculations and generate efficient pseudo-code for DO-loop 
control. This enables some PL/I programs to compile into 
faster object code at the cost of extra compile time. 


Converts the triples to a form closely resembling machine 
instructions, in which registers are represented 
symbolically, and storage locations are represented by | 
dictionary references with offsets. The final pseudo-code 
version of the text also contains a number of special 
pseudo-code items for the guidance of later phases. 


LL-L-2lI-ll-—————-----———————L---—-—————-—-——-———--—-—----—--—-———-————-—————-——----------------- 
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Figure 2. Compiler Logical 


Description | 
Searches the dictionary for all entries requiring storage, l 
and allocates offsets to each item, either within its 
AUTOMATIC block, or within the STATIC storage area. Code 
is compiled to set up dope vectors and pointers at object 
time, for allocations of controlled variables and 
temporaries, the storage for which must be obtained during 
the execution of the object program. Prologue code is 
generated for each block of the object program. 


Allocates physical registers to the symbolic registers 
which have been requested by earlier phases, and also 
ensures that all the storage location offsets allocated in 
previous phases can be addressed by the insertion of 
additional instructions, where necessary. 


Completes the translation to machine code instructions, by 
calculating branch destination addresses inserted 
symbolically by earlier phases. Loader text is then 
produced for the machine instructions, constants, INITIAL 
values in STATIC storage, and all the constant data 
required for block initialization. ESD and RLD cards are 
produced to enable the object program to be edited by the 
Operating System/360 Linkage Editor or the Linkage Loader. 
The Final Assembly Phase also produces a listing of the 
object code produced. 


Entered at the end of every compilation. The dictionary is 
examined to determine whether there are any diagnostic 
messages to be printed out. If there are none, the 
compilation is terminated by the compiler control. If 
there are diagnostic messages to be printed out, the error 
dictionary entries are processed and the messages are 
printed. The texts of all the diagnostic messages are held 
in modules XG through YY. 


Phases (Part 2 of 2) 
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Note: For descriptions of terms and 
abbreviations used in the text during a 
compilation which are mentioned in this 
chapter, refer to Appendix D.11. 


COMPILER CONTROL AND 48-CHARACTER SET 
PREPROCESSOR 


COMPILER CONTROL 


When the PL/I (F) Compiler is invoked by 
the calling program (e.g., the Job 
Scheduler) of the operating system, the 
Compiler Control module IEMAA is loaded and 
entered.  IEMAA is resident during the 
whole compilation; it controls the 
following functions: 

Initialization 

Character translation 

Communication between phases 

Text and dictionary block control 

Scratch storage control 

Storage requirements 

Phase loading 

Phase directory construction 

Diagnostic message control 

Input/output control 

Program check handling 


Compile-step termination 


Initialization 


Initialization is achieved by module AA 
linking to module AB. Module AB performs 
the detailed initialization of the 
compiler, and provides the following 
functions: 


Opens SYSIN and SYSPRINT data sets 


Constructs a phase directory (for details 
refer to Appendix B) 


Sets up a communications region in the 
dictionary (for details refer to Appendix 
F) 
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Scans option list 


Obtains space for text blocks and 
dictionary blocks. 


Opens SYSUT3 and SYSPUNCH as necessary 


Prints a list of options used in current 
compilation 


Loads phase AN to handle a normal 
dictionary, or phase AL if an extended 
dictionary is requested. 


On return from module AB, the first 
compiler phase is loaded and entered. 


Character Translation 


The character translation tables (see 
Appendix D.1) provide the facility for 
converting external code to a compiler 
internal code, and for converting the 
internal code back to the external form. 
These tables thus prevent the compiler from 
becoming character code dependent, and 
enable the scanning routines to process the 
input source statements more efficiently. 
Note that the contents of these tables are 
different during compile-time processing 
from the contents during compilation 
proper. 


Communication Between Phases 


The communications region is an area 
specified by the control routines, and used 
to communicate necessary information 
between the various phases of the compiler. 
The communications region is resident in 
the first dictionary block throughout the 
compilation. 


Entry to the various compiler control 
routines is via a transfer vector. Details 
of the transfer vector and the organization 
of the communications region appear in 
Appendix F. (Note: The use of the 
communications region during compile-time 
processing is described in Appendix J.) 


Text and Dictionary Block Control 


Block control is achieved by a system of 
text and dictionary references. If the 
program in storage becomes too large, 
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blocks are placed on an external file, 
SYSUT1. The block control routines contain 
the input/output control. 


Block control Area 





The block control area contains two tables, 
DSLOTS and TSLOTS, and is held in modules 
AL/AN. The DSLOTS table contains 70 4-byte 
Slots, and the TSLOTS table contains 96 
4-byte slots. The first six slots in each 
table are used by the compiler control 
routines for holding general block 
information. The remaining slots contain 
details of the status and position of text 
and dictionary blocks, one slot per block. 


The format of each slot is as follows: 


1 byte indicator 


3 byte address - (a) if the block is in 
main storage it 
contains the absolute 
address of the start 
of the block. 


(b) if the block is on 
disk it contains the 
relative track 
address of the block 
in the spill file. 


The format of the indicator byte is x 
'ab' where: 


ab = FF if the block has not been 
allocated 

a= 8 if the block is in storage 

a= 0 if the block is on the spill 
file 

b=4 if the block is busy (i.e., 
locked into storage) 

b= 3 if the block is wanted (i.e., 
spillable but preferably kept in 
storage). 

b= 2 if the block is not wanted 
(i.e., information to be 
retained but block may be 
spilt). 

b=1 if the block is free (i.e., 


information no longer required). 
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Text Block Chaining 


When text blocks are chained, the second 
byte of the last but one word of each block 
contains the block number of the next block 
in the chain. 


Scratch Storage Control 


Scratch storage of 4K bytes is guaranteed 
to all phases. The control routines split 
the 4K-block into discrete sections, each 
of 512 bytes, and allocates them as 
required. 


Storage Requirements 


The PL/I (F) Compiler requires main storage 
for the following purposes : 


Compiler processing phases 
Print buffers 

Compiler control routines 
Dictionary area 

Text area 

Input/Output buffers 
Input/Output routines (QSAM) 


The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 


During the read-in logical phase a 
minimum of two dictionary blocks and two 
text blocks is available in storage . 
simultaneously. During the optimization 
logical phase, a minimum of three 
dictionary and five text blocks is 
available in storage simultaneously. 


During the rest of the compilation four 
dictionary blocks and four text blocks are 
available in storage simultaneously. 


The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to determine 
the block size. A table contained in Phase 
AB is searched, using the SIZE option as an 
argument. When the correct entry is found, 
the block size is extracted. 


Appendix E shows details of storage 
allocation. 


Phase Loading 


Phase loading routines include phase 
marking (where phases are indicated as 
wanted or not wanted), phase loading, and 
phase deleting facilities. The phase 
directory is constructed for this purpose. 


Phase Directory Construction 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted): 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. (The error 
message phases have their own phase 
directory, which is built in phase XB and 
uses the same space in AA as the phase 
directory proper.) 


The phase directories are constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operatinq System, Supervisor and Data 
Management Services. For details of the 
phase directory see Appendix B. 


Diagnostic Message Control 


Diagnostic message control routines cause 
diagnostic messages to be placed in a chain 
in the dictionary. 


Input/Output Control 


The I/O control routines involved act as an 
interface between the compiler phases, and 

SYSIN, SYSPRINT, SYSLIN, and SYSPUNCH data 

sets. (See Figüre 4.) 


Program Check Handling 


The compiler handles all program checks. 
Control can be passed to a phase to enable 
it to deal with the check. 


| Compile-step Termination 


The compiler completion code is picked up 
and control is returned to the calling 
program. 


The compiler completion codes are as 
follows: 


Code Meaning 

0 No diagnostic messages issued; 
compilation completed with no 
errors; successful execution 
expected 





4 Warning messages only issued; 
program compiled; successful 
execution is probable 


8 Error messages issued; compilation 
completed, but with errors; 
execution may fail 

12 Severe error messages issued; 
compilation may be completed but 
with errors, successful execution 
improbable. If a severe error 
occurs during compile-time 
processing, the compilation will be 
terminated and, if the SOURCE 
option has been specified, a 
listing of the PL/I program text 
produced by the compile-time 
processor will be printed. 


16 Termination error messages issued; 
compilation terminated abnormally; 
successful execution impossible. 


COMPILER CONTROL MODULES 


In addition to modules AA and AB, further 
modules, AC, AD, AE, AF, AG, AH, AI, AK, 
AL, AM, AN, and JZ are used in compiler 
control. The functions of these modules 
are briefly described in the following 
paragraphs. 


Module AC 


Module AC controls reading and writing 
operations on SYSUT3, the intermediate 
file. It is loaded only if the CHAR48 or 
MACRO option is specified, and is deleted 
at the end of the Read-In Phase. 
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Module AD 


Module AD performs inter-phase dumping. 


All specified active storage is dumped 
at the end of the phases stated or implied 
in the DUMP option. If the DUMP option 
includes either I, for the Annotated 
Dictionary Dump, or E, for the Annotated 
Text Dump, or both, then phase AD will load 
either phase AH, or phases AI and AJ, or 
all three, to produce the required output. 


The DUMP Option 


The DUMP option which is specified in the 
PARM field of the EXEC card indicates where 
dumping of main storage is to take place. 
It may be specified in one of the following 
ways: 


1. DUMP, means a dynamic dump is required 
(the dump routine will be called by a 
running phase) 


2. DUMP= (area,X4,Xa,X35---- Xp) means a 
dump of the storage after the named 
phase where x is the name of a phase. 


Area is any combination of TDPSCIE: 
text blocks 

dictionary blocks 

phases loaded 

scratch storage 

control phase 

annotated dictionary blocks 
annotated text blocks 


OH 


WHOM 9 


The general syntax is: 


DUMP [ಐ (18276೮81, {x|(y,z)},...)] where x, 
y and z are phase names. 


A single phase name indicates dumping of 
storage after this single phase. A pair of 
phase names indicates a continuous group of 
phases after which dumping of storage is to 
occur. 


The dump will appear on SYSPRINT, 
inserted into the normal compiler output. 


If area is omitted the default taken is 
DTSP. If a program check occurs and DUMP 
has been specified then area will be given 
the default DTSPC. 


If the area specifies both T and E or 
both D and I, only the relevent edited dump 
will be printed. 


If the area contains P, a message is 
printed on completion of every phase, 
whether mentioned in the DUMP parameter or 
not. 


Use of the DUMP option may cause the 
compiler to use about 8K bytes more main 
storage than the SIZE option specifies. 
This is because SIZE specifies the amount 
of main storage the compiler can use for 
normal compilation and does not allow for 
the internal compiler diagnostic dumps. 


Example of an EXEC card using the DUMP 
option: 


//STEP1 EXEC PROC=PLI1LFC, 
PARM.PLIL-'DUMP-(TIP,OE,QU)' 


This statement specifies compilation using 
the DUMP option to obtain a printout of the 
text blocks, the annotated dictionary, and 
the loaded phases after the completion of 
compiler phases OE and QU. 


Module AE 


Module AE is the finalization of the 
Read-In Phase control. (See Fig.4, Note*) 


Module AF 


Module AF is a control section consisting 
of a table containing the compiler options 
which may be used during a compilation. 
The table is constructed at system 
generation time. The control section is 
brought into storage by the initialization 
Module.AB at compilation time. A 
description of the use of Module AF is 
given in Appendix G. 


Module AG 


Module AG closes SYSUT3 for output, and 
re-opens it for input. 


The closing and opening operations are 
performed in the following order: 


CLOSE 
alter macro-type in data control block 
(DCB) 


OPEN (INPUT) 


switch routine ZURD to point at the 
SYSUT3 data control block 
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Module AH 


Module AH produces a dump of the 
dictionary. It prints out the 
communications region in the first block, 
and the offsets tables for each block if 
the extended dictionary option is in use. 
The remainder of each block is printed out 
entry by entry. The BCD is translated for 
those entries containing BCD. At the end 
of the dump, a list of all the dictionary 
codes used is given, with an explanation 
for each code. 


The module is called by phase AD only if 
an I is specified in the area field of the 
DUMP option. 


Modules AI and AJ 


Modules AI and AJ are called, if E is 
specified in the area field of the dump 
option, to provide an 'easy-to-read' text 
print in which the triples and pseudo-code 
items comprising the text are printed 
separately. This option is available 
between phases IA and OE inclusive. 


Module AK 


Module AK is the closing routine of the 
compiler. Its function is to release main 
Storage used for dictionary, text blocks, 
scratch storage, and completed phases. If 
batch compilation is not specified, module 
AK closes all the files used by the 
compiler. If a batch compilation is 
specified, a check is made to determine 
whether any source programs are still to be 
compiled. Where there are none module AK 
closes all files. Where one or more 
programs remain to be compiled, the spill 
file only is closed, the batch delimiter 
card is scanned for syntax errors, and 
control is returned to module AA. 


Module AL 


Module AL contains the control routines for 
dictionary and text-block handling for the 
extended dictionary. 


26 


Module AM 


Module AM marks phases as either wanted or 
not wanted, depending upon the compiler 
invocation options. Phases that are always 
loaded are marked wanted. 


AM is the first compiler phase loaded 
after compiler initialization. It tests 
the relevant bits in the Control Code word 
(CCCODE) and marks the phases accordingly. 


Module AN 


Module AN contains the routines for 
dictionary and text-block handling for the 
normal-sized dictionary. 


Module AT 


Module AT provides extra debugging features 
during compiler runs. The three features 
of this module are: 


1. A ‘TRACE’ of all instructions executed 
between specified locations within 
specified compiler modules. 


2. A ‘FLOW’ of branches taken between 
specified locations within specified 
compiler modules. 


3. The ability to VERIFY and REP (replace) 
patches within specified compiler 
modules. 


Note: Features 1 and 2 can be inhibited 
until a particular statement is 
reached. 


The TRACE/PATCH Option 


The following must be done to use the 
facilities described above in Module AT: 


1. “T° (Trace or Flow) or 'P' (Verify or 
Rep) must be inserted in the compiler 
option list. 


2. A size of at least 12K less than the 
size available must be specified. Do 
not attempt to use SIZE=999999. 


3. As the output will go to a dataset 
named TRACEOUT, the following DD card 
will also be required in the JCL for 
the compile step: 


//TRACEOUT DD SYSOUT=A 


In addition, control cards will be 
required which must be inserted before the 
first card of the source program. Up to 10 
each of TRACE/FLOW and VERIFY/REP cards are 
permitted. 


To obtain TRACE/FLOW facilities the 
control card should contain the following 
information: 


* in card column 1 
Keyword 'TRACE' or ‘FLOW 


Two-letter module name 
of start of 
Four-digit hexadecimal Trace or Flow 


offset of instruction 


Two-letter module name 
of end of 
Four-digit hexadecimal Trace or Flow 


offset of instruction 


where nnnnn is 
five-digit decimal PL/I 
statement number at 
which Trace/Flow is to 
start. 

Note: This field is 
optional and may be 
used only if the module 
in which TRACE/FLOW is 
to start updates ZSTAT. 


(STAT-nnnnn] 


Example: 
* TRACE GB 012B GU 036C 


Note: Fields should be separated by at 
least one blank, and end in or 
before column 72. 


TO obtain the PATCH facilities the 
control card should contain the following 
information: 


* in card column 1 
Keyword 'VERIFY' or 'REP' 
Two-letter module name 


of Patch 


Four-digit hexadecimal location 


offset 


Note: Hexadecimal Patch data may be 
separated by commas if desired. 


Example: 
* VERIFY GB 032A 
VERIFY and REP instructions are carried 


out as soon as the module concerned is 
loaded. If the data does not compare on 
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Verify operation, an error message will be 
given on the data set TRACEOUT. Note that 
Rep operations do not depend on a previous 
valid verify operation. 


Module F1 


Module F1 checks whether Syntax Check 
should terminate compilation. The three 
options for the Syntax Check are recognized 
in module AB and flags are set. On 
completion of the Read-in and Dictionary 
phases, these flags are tested by module 
Fl, which was loaded when phase FX released 
control. The decision to terminate or 
continue is made based on the flag settings 
and the level of error severity encounterei 
(by inspecting the heads of the error 
chains), and a special message is issued at 
this point. 


Module JZ 


Module JZ builds the second half phase 
directory. A build list is constructed 
from the second half list held in Module 
AA; a BLDL is performed on this list. The 
phase directory is then reconstructed in 
Module AA for the second half of the 
compiler. 


48-CHARACTER SET PREPROCESSOR 


Phase BX is the 48-character set 
preprocessor. It is loaded on programmer 
option and receives, as input, source text 
in the 48-character syntax. 


The preprocessor scans the input text 
for occurrences of characters peculiar to 
the 48-character set, and converts these to 
the corresponding 60-character symbols. It 
then puts out the adjusted text onto 
auxiliary storage ready for Phase CI, the 
first pass of the Read-In Phase. 


The text is read in record by record. 
It is then scanned for alphabetic 
characters which may be the initial letters 
of operator keywords, for periods, and for 
commas. Items within comments or character 
strings are ignored. 


When a possible initial letter is 
discovered, tests are made to determine 
whether or not one of the reserved operator 
keywords has been found. If one has been 
found, it is replaced by its 60-character 
set equivalent. Similarly, appearances of 
two periods are replaced by a colon, and a 
comma-period pair is replaced by a 
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semi-colon if the comma-period pair is not 
immediately followed by a numeric 
character. 


Allowance is made for the possibility 
that a concatenation of characters which is 
meaningful in the 48-character set may be 
split between two records. 


Before the text is processed a copy of 
the original input is preserved. The 
output from the preprocessor is the 
transformed text, record by record, 
followed by the original text. The Read-In 
Phase processes transformed text but prints 
out the original. 


The 48-character set preprocessor uses 
Compiler Control routine ZURD to obtain 
input, and routine ZUBW to place its output 
onto auxiliary storage. 


Note: If the MACRO option is specified, all 
the processing described above is 
done by the compile-time processor, 
and phase BX is bypassed. 


COMPILE-TIME PROCESSOR LOGICAL PHASE 


The compile-time processor consists of six 
physical phases. Each of these phases is 
executed once, unless an INCLUDE data set 
is encountered. In this case certain 
phases will be re-executed. 


The compile-time processor moves source 
text that does not contain compile-time 
statements directly into text plocks. 
During this process invalid characters are 
replaced by blanks, and line numbers are 
encoded and inserted into the text. 
Compile-time statements are decoded and 
translated into an internal form and then 
placed directly into text blocks. An entry 
is made into the dictionary for each 
compile-time variable, procedure, label, or 
INCLUDE identifier. 


A second pass is then taken over these 
text blocks, during which compile-time 
Statements are executed and the PL/I source 
program text is scanned and replacements 
are made. The output from this pass is a 
PL/I source program contained on SYSUT3 
and, optionally, a punched card deck. 


If during the second pass, an INCLUDE 
data set is processed, the entire procedure 
indicated above is executed recursively to 
process this text. 


Text and dictionary formats used by the 
compile-time processor are contained in 
Appendix J. 


Line Numberinq 


As the input is being processed a unique 
line number is assigned to every logical 
record processed. If a listing of the 
input is requested, these line numbers are 
written out beside the appropriate line. 
The line numbers are also encoded and 
inserted into the text so that diagnostics 
can be keyed to them. These line numbers 
are also output on SYSUT3, to aid the user 
in determining from which input line a 
particular line of output came. 


Phase AS 


This phase, consisting of one physical 
module, is loaded if the MACRO option is 
specified. It is resident throughout 
compile-time processing until the cleanup 
phase (BW) is invoked. 


This phase controls the loading of the 
subsequent compile-time processor phases. 
The initialization phase (AV) is loaded 
only once. The two processing phases (BC 
and BG) are loaded and executed once unless 
an INCLUDE data set is processed. In this 
case phase AS reloads the processing phases 
to process this data set. 


In addition, phase AS contains a set of 
service routines used by both processing 
phases. Access to these routines is via a 
transfer vector located at the beginning of 
phase AS. 


Phase AV 


This phase consists of one physical module. 
Its purpose is to initialize certain cells 
in the communications region for the 
compile-time processor phases. 


Phase BC (BE, BF) 


Phase BC consists of three physical 
modules, BC, BE, and BF. Module BE 
contains the control routine. 


Phase BC accepts input text, moving it 
into text blocks until a compile-time 
Statement is found. (For a description of 
the use and layout of text and dictionary 
blocks, see Appendix J.) When a 
compile-time statement is encountered, it 
is encoded into a set of interpretive 
instructions and, except for compile-time 
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procedures, added to the current text 
block. Compile-time procedures are 
similarly encoded, but are placed in 
separate text blocks. 


As compile-time statements are encoded, 
all non-keyword identifiers encountered are 
entered into the dictionary, together with 
any attributes that are known. Entries are 
also made in the dictionary for constants 
and iterative DO-loops. 


During phase BC, invalid characters 
occurring outside of strings and comments 
cause a diagnostic to be printed. They are 
converted to blanks. Invalid characters 
can thus be used for markers of various 
sorts in text blocks. Diagnostics are 
given for syntax errors in compile-time 
statements. Line numbers are encoded and 
inserted into the text for the use of the 
phase BG scan. All input characters are 
converted to their EBCDIC representation 
before they are processed. 


Phase BG (BI, BJ) 


Phase BG consists of three physical 
modules: BG, BI, and BJ, which contain the 
control routine, the macro-code 
interpreter, and the built-in function 
handler, respectively. 


In general, the input to phase BG is the 
set of chained text blocks and dictionary 
blocks created by phase BC. The phase BG 
execution is essentially that of the 
compile-time processor described in the 
external specifications. That is, its 
basic action is to move through text blocks 
looking for instances of compile-time 
variables or compile-time statements, which 
it uses to produce the output text. As 
line numbers are encountered in the text, 
they are placed into a location containing 
the current line number. This is used both 
for phase BG diagnostics and by the output 
editor. 


If a compile-time variable or procedure 
reference is found, the scan cursor is 
positioned to scan its value. When the 
scan of the value is completed, the cursor 
is properly positioned back into the text. 
If a compile-time variable or procedure 
reference is found in this value scan, the 
process repeats itself. Such nesting can 
Occur to a depth of 100. 


If the scan encounters an encoded 
compile-time statement (built by phase BC), 
control is passed to an interpreter. This 
interpreter executes the statement -- 
possibly repositioning the scan cursor -- 
and returns to the scan. 
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The output of this phase is a PL/I 
source program contained on SYSUT3, and, 
optionally, as a sequenced card deck. 


Phase BM (BO) 


Phase BM examines the heads of the error 
chains in the first dictionary block, and 
programmer options which specify the 
severity level of messages required. If 
there are no messages, it passes control to 
the clean-up phase (BW). If diagnostic 
messages are required, the phase loads BN 
to process them after scanning the chains 
and indicating where the text is to be 
found, from the message directory block, 


` module BO. 


Module BN (BP, BV) 


The text of all compile-time processor 
error messages is kept in modules BP 
through BV. The messages are ordered by 
severity, within these modules. BM will 
have listed those modules which contain 
messages required for a particular pass. 
Module BN loads and releases these modules, 
one at a time and extracts the required 
messages. When all compile-time error 
messages have been processed, module BN 
returns control to BM. 


Phase BW 


The purpose of this phase to set all tables 
and communication region cells to the . 
values required by tne compiler proper. In 
addition it will release all text and 
dictionary blocks used by the compile-time 
processor phases and then pass control to 
the next required phase of the compiler. 


If a severe or terminal diagnostic has 
been produced by the Compile-time processor 
a listing of the contents of SYSUT3 will be 
printed (provided that the SOURCE option 
applies), and compilation will be bypassed. 


THE READ-IN LOGICAL PHASE 


The Read-In Logical Phase consists of five 
discrete physical phases, each of which 
processes a particular group of statement 
types. The phase obtains the input text in 
the externally coded form by a call to the 
compiler read routine, and converts it to 


internal code by means of a translation 
table provided by compiler control. 


The source text is scanned for 
syntactical errors. During this time an 
output string is built up, which consists 
essentially of the input text with comments 
and insignificant blanks removed. The 
source text is scanned and statements are 
numbered, identified, and diagnosed. Any 
required substitutions are made, statement 
labels are inserted in the dictionary, and 
chains are formed (for example, BEGIN, 
PROCEDURE chains). If the SOURCE option 
applies, source statements, with their 
number, and optionally, their block levels 
and DO-nest levels, are printed out 
immediately after they have been read. 


When the input text provides an 
end-of-file indication, processing is 
terminated. In ERROR situations this may 
not occur when a valid external procedure 
has been completely processed. By keeping 
a count of PROCEDURE, BEGIN, DO, END, ON, 
and IF statements, the phase can detect 
when the logical end-of-program indication 
is found. If there are more records after 
the end of the external procedure, they are 
ignored. 


If an end-of-file indication is 
encountered before the logical end of the 
program, diagnostic messages are issued and 
suitable END statements are inserted to 
allow compilation to continue. 


The output of the Read-In Phase provides 
a syntactically correct output string; a 
table of entry and statement labels; chains 
of coded diagnostic messages; a set of 
switches specifying compilation content 
details; a set of chains linking statements 
of a particular type, to facilitate 
subsequent scanning; and optionally, a 
listing of the source text. 


Statement Numbering 


All statements are given a sequential 
number. This includes each compound 
statement, each statement contained in a 
compound statement, block and group 
delimiting statements, and null statements. 
The numbering of the statement is indicated 
on the source listing. Diagnostic messages 
also refer to these statement numbers. 


Statement and Entry Labels 


Statement and entry labels appearing in the 
Source text are removed and added to a 
label table, which is built up in the 
region intended for the dictionary. This 
region may be extended by further blocks as 
required. The label table entry is an 
embryo dictionary entry, with blank regions 
to be filled later by the Dictionary Phase 
EG. 


When a label declaration is found, an 
entry is made in the label table with a 
Statement label code, the current (updated) 
sequential number, and the current block 
level and block count. 


Statements having multiple labels give 
rise to multiple label table entries. 
These entries are identical except for the 
BCD name. 


If the statement following a label is 
subsequently identified as a PROCEDURE or 
ENTRY statement, the label table is 
re-accessed, and the entries associated 
with the statement are modified (see 
Appendix C.2). 


Chains Constructed by Read-In 


To provide rapid scanning in the dictionary 
phases, the following chains are 
constructed by the Read-In Phase: 


The CALL chain 
The PROCEDURE-ENTRY-BEGIN chain 
The DECLARE chain 


The ÁLLOCATE chain 


Errors and Diagnostic Messages 


As the source text is scanned it is 
syntactically analyzed. Keywords are 
identified and passed as valid only if they 
may legally appear within the type of 
Statement being diagnosed. However, 
consistency of attributes and options 
within a statement are not normally 
analyzed. This is left for Phase EK. 


When a syntactical error is detected, an 
attempt is made to correct it and an 
appropriate diagnostic message is 
generated. The main aim of the Read-In 
Phase is to present syntactically correct 
text to subsequent compiler phases. 
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Certain corrections are performed without 
prejudicing the complete compilation. 


Detected errors cause a diagnostic 
message to be added to a diagnostic message 
chain in the dictionary area. Each message 
is in a coded form with parameters (textual 
Matter, statement numbers, and so on). The 
message is decoded and printed out by the 
Error Editor. 


Where an error makes it impossible for 
the scan of a statement to continue, the 
Statement is terminated correctly at such a 
point as to leave the statement 
syntactically correct. The text between 
that point and the next semi-colon (not in 
a comment or character string) is skipped. 
The diagnostic messages produced in these 
circumstances will include at most the 
first ten characters of the text that is 
skipped. 


The Output String 


The output string is so arranged that a 
complete statement never spans storage 
blocks. One of the conditions of a 
successful compilation is that the output 
resulting from any statement must not 
exceed the block. This restriction, 
however, does not apply to DECLARE 
statements. Formats of the statements 
appearing in the output string are given in 
Appendix D.2. 


Identifiers 


All identifiers which are not recognized as 
keywords in the source text appear in the 
output string. 


Constants 


All constants appear in the output string. 


Operators 


All operators appear in the output string. 
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Initial Labels 


Subscripted label variables which are 
initialized by attachment to statements are 
placed in pseudo-assionment statements in 
text, and then handled as if they were 
normal labels. 


STRUCTURE OF THE READ-IN LOGICAL PHASE 


The Read-In Phase can occupy 16K bytes of 
storage for any one pass. A storage map 
for this phase is shown in Figure 5. 


Bytes 
0 (Sr ಸಾಹಾ ಹಾಹಾ 1 
| CA | 
UK po 4 
| cc | 
IK bpd 
| cE | CK | CN | CR | CR | 
BK  p-——-——4d-—-—---14------4—-----14----—--4 
| ce | cL | co | cs | cv | 
12K  L-—----1--—-—-1------ -----}------j 
| cz | cM | CP | cT | œ | 
16K L-———-— ಯಾನಾ ಬರ ವಾಸಾ ಯ ee ವಸ” 


PASS 1 PASS 2 PASS 3 PASS 4 PASS 5 
Figure 5. Storage Map for the Read-In Phase 


The Read-In Phase consists of five 
phases or passes, each containing at most 
five modules. Modules CA and CC consist of 
common routines which are invoked 
throughout the phase by each of the passes, 
in turn. Modules CE, CK, CN, and CR 
contain separate keyword tables. Details 
of the organization of these tables are 
given in Appendix B. Control for each pass 
resides in modules CI, CL, CO, CS, and CV 
respectively. The following description 
refers to the phases by these names. 


Phase CI 


During phase CI (the first physical phase 
of the Read-In Phase) the source text is 
read into storage, and character codes are 
converted to an internal form. Statement 
types are identified, labels are inserted 
into the dictionary, and statement 
identifiers are replaced by single-byte 
codes (see Appendix D.1). 


A record is kept of block nesting levels 
and counts to enable a check to be made for 
the logical end-of-program indication. In 
order to do this, certain statements have 
to be either partially or completely 
analyzed in this pass. 


These statements are: 


PROCEDURE-END 
BEGIN-END 
DO-END 
IF-THEN-ELSE 
ON 


If the SOURCE option has been requested, 
a listing of the source program, with the 
statements numbered by the compiler, is 
printed out onto the specified output 
medium. 


Phase CL 


The output from phase CI is processed and 
the statement types listed below are 
analyzed in greater detail: 


ENTRY FREE 
PROCEDURE WAIT 
20 READ 
Iterative DO WRITE 
RETURN DELETE 
GO TO UNLOCK 
DELAY LOCATE 
DISPLAY REWRITE 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary as required. 


Phase CO 


The output from phase CL is processed. In 
particular, the DECLARE, ALLOCATE, and CALL 
Statements are analyzed in greater detail. 
The syntax of attributes is checked, but 
their consistency is analyzed during phase 
EK. If the source program does not contain 
any Of these three statements, this pass is 
not invoked. 


If any errors are detected during this 
pass, diagnostic messages are inserted into 
chains in the dictionary. 


Phase CS 


The output from phase CL or CO is 
processed. In particular, the syntax of 
input/output statements is analyzed, 
together with the FORMAT statement. If the 
source program contains no input/output 
Statements, this pass is not invoked. 


Phase CV 


This phase processes the output from 
earlier phases. In order to assist 
subsequent processing, chains are 
constructed for PROCEDURE, ENTRY, BEGIN, 
CALL, ALLOCATE, and DECLARE statements. 


THE DICTIONARY LOGICAL PHASE 


The Dictionary Phase forms a dictionary of 
identifiers, by first analyzing PROCEDURE, 
BEGIN, DECLARE, and ENTRY statements. The 
text is then scanned for contextual use of 
identifiers, constants, and pictures. 
Finally, every identifier and constant in 
the source text is replaced by a reference 
to its respective dictionary entry. 
Dictionary entries are made during this 
phase for all implicitly defined 
identifiers. The formats of dictionary 
entries appear in Appendix C. 


Constructing and Accessing the Dictionary 


The dictionary, during the construction 
stage, comprises two parts, the hash table 
and the dictionary proper. 


To facilitate a search through the 
dictionary for an entry with a particular 
BCD, a method is used of dividing the 
dictionary into areas. Each area is 
characterized by a property of the BCD of 
each entry in it. In practice, these areas 
are not contiguous but are chained lists, 
each item in the list being one dictionary 
entry long. 


The start of each list is in a table, 
known as the hash table. The association 
Of a particular identifier with a list, 
i.e. the characterization of an area, is 
achieved by deriving from a given BCD an 
address in the hash table. 


"Hashing" is a process of reducing the 
length of the internal representation of 
the BCD to one word. This is done by 
adding successive four-byte lengths of the 
BCD into one four-byte register. This is 
then divided by 211, and the remainder is 
doubled to give the hash table address 
associated with the particular BCD. All 
identifiers which hash to the same address 
are placed in a chain; in particular, all 
dictionary entries with the same BCD will 
be in the same hash chain. 


If TOM, DICK, and HARRY occur in the 
same DECLARE statement in that order, and 
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they all hash to the same address in the 
hash table, the address in the hash table 
will point to HARRY's entry, which contains 
the address of DICK, which, in turn, 
contains the address of TOM. 


When no further BCD entries are to be 
made in the dictionary, and all BCD 
identifiers in the source text have been 
replaced by dictionary references, the hash 
table is deleted. 


Testing for Consistent Attributes 


A test is made at the start of each list of 
attributes, to ensure that any list of 
attributes at one level of factoring in a 
DECLARE statement is consistent. 


Compiler Pseudo-Variables and Functions 


Expressions specified for array bounds, 
String lengths, and initial value iteration 
factors must be evaluated at object time, 
or at allocation time if the variable is 
controlled. The expressions are placed 
temporarily at the end of the text, and are 
later moved by Phase FV and placed 
immediately following the BEGIN, PROCEDURE 
or ALLOCATE statement to which the declared 
variable belongs. The expression results 
are assigned to pseudo-variables generated 
by the compiler. These serve two purposes: 
first, the assignment statement appears as 
a normal PL/I statement and need not be 
treated as a special case; secondly, the 
pseudo-variable contains the dictionary 
reference of the variable and information 
concerning the destination of the 
expression. Compiler functions with a 
format similar to the pseudo-variables are 
also created. The function result is the 
specified array bound, or string length. 
Compiler functions are created for two 
purposes: first, to set bounds for base 
elements of structures when the structure 
bound is an expression, or to set the 
bounds of temporary arrays; and secondly, 
to set the storage address of a dynamically 
defined item immediately before its use. 
The formats of all the compiler 
pseudo-variables and functions appear in 
Appendix D.8. l 


Dictionary Entries for Entry Points 


A PROCEDURE or ENTRY statement may have 
more than one label. Each label must have 
a data description to indicate the type of 
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data returned when the label is invoked as 
a function, and also the type of data to 
which the expression in a RETURN 
(expression) must be converted. These need 
not be the same: there must therefore be 
provision for two data descriptions for 
each label. A PROCEDURE or ENTRY statement 
may specify parameters. The descriptions 
of these identifiers, obtained from DECLARE 
Statements or default rules, are used for 
prologue construction, but not for 
parameter matching. Any data description 
given on these statements is to be used for 
conversion at a RETURN (expression), but 
not for determining the result returned by 
a function reference. 


Parameter descriptions for use in 
parameter matching, and data descriptions 
used for determining the type of data 
returned by a function reference, may be 
specified by the source programmer in an 
ENTRY declaration. If these are not given, 


default and implicit rules must be used to 


build a data description, but no parameter 
description can be given. 


Given the foregoing requirements, the 
dictionary entries describing an internal 
entry point are as given in Figure 6. 


The set of dictionary entries A, B, C, 
D, E is repeated for each label associated 
with the PROCEDURE or ENTRY statement. The 
entry F will point to entry A for the first 
label only. D will point at the label with 
which it is associated. It should be noted 
that B and C may coincide. 


The entries type 1 for PROCEDURE, ENTRY, 
and BEGIN statements are chained amongst 
themselves in the following way. Each 
entry type 1 belonging to a PROCEDURE or 
BEGIN statement contains the dictionary 
reference of the entry type 1, of the next 
PROCEDURE or BEGIN statement in the source 
program, and also of the entry type 1 of 
the immediately containing block. 


The entries type 1 of PROCEDURE and 
ENTRY statements belonging to a single 
procedure are chained together in a 
circular manner. If there are no ENTRY 
Statements the entry type 1 of the 
PROCEDURE statement points at itself. 


External entry points are described by 
dictionary entries termed entry type 4. 
They contain data descriptions of the value 
returned when referenced as a function, and 
may contain descriptions of parameters. 


Formal parameters which are entry points 
are termed entry type 5, and parameter 
descriptions which are entry points and are 
pointed at by types 3, 4, or 5 are termed 
entry type 6. 
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Phase ED contains a set of subroutines, for 
processing certain of the tasking and list 
processing attributes, and tables of 
generic and non-qgeneric built-in functions. 
The phase obtains 1K of scratch storage, 
into which it moves the routines and 
tables, setting a slot in the 
communications region to point at them. 
This address is later picked up and used by 
phase EL. 


| Phase EG (EF) 


Phase EG has two main functions. The first 
is to set up a hash table, and to insert 
the label entries left in the dictionary by 
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Hote: There is an entry E for each parameter described in D. 
Figure 6. Dictionary Entries for an Internal Entry Point 
Phase ED the Read-In Phase into hash chains. The 


second function of the phase is to create 
dictionary entries for PROCEDURE, BEGIN, 
and ENTRY statements, and to construct 
chains linkina entries of particular types. 


For PROCEDURE-BEGIN statements, entry 
type 1 dictionary entries are created (see 
Appendix C.2), and block header chains are 
set up to link these entries sequentially. 
A containing block chain is also set up to 
link each entry with that of its containing 
block. 


BEGIN Statements are scanned for the 
ORDER/REORDER option, and the optimization 
byte is created in the entry type 1 (see 
Appendix C.2). 


On the appearance of PROCEDURE 


Statements, circular PROCEDURE-ENTRY chains 
are initialized to link the entry type 1 
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dictionary entries of the PROCEDURE and 
ENTRY statements of the same block. The 
formal parameter list is scanned, and 
formal parameter type 1 entries are created 
and inserted into the hash chain. Details 
Of the PROCEDURE-ENTRY chains appear in 
Appendix C.2. 


The attribute list and the options are 
scanned and an options code byte and 
optimization byte are created in the entry 
type 1 (see Appendix C.2). A check is then 
made for invalid and inconsistent 
attributes. CHARACTER and BIT attributes 
are processed, and second file statements 
(see Appendix D.8) are created if 
necessary. Precision data are converted to 
binary, and dictionary entries are created 
for pictures (see Appendix C.7). 


Statement labels are scanned and their 
entry type 2 dictionary entries are 
created. The relevant data bytes in the 
dictionary are completed by default rules 
(see Appendix C.3). 


For ENTRY statements, entry type 1 
dictionary entries are created (see 
Appendix C.2), and the circular 
PROCEDURE-ENTRY chain is extended. Formal 
parameters, attributes, and labels are 
processed in a similar manner to those for 
PROCEDURE statements, except that the 
options code byte is not created. 


| Phase EI (EH, EJ) 


Phase EI scans the chain of DECLARE 
Statements set up by the Read-In Phase, and 
modifies the statements to assist Phase EK 
as follows: 


Structure Level Numbers: 


converted to binary. 


these are 


Factored Attributes: parentheses enclosing 
factored attributes are replaced by special 
code bytes, so that Phase EK can 
distinguish them easily. A factored 
attribute table is set up. It consists of 
slots corresponding to each factored level. 
Each slot contains the address of the 
attribute list associated with that level, 
and the address of the slot for the 
containing level. 


The following attributes are processed: 


DIMENSION: dimension table entries (see 
Appendix C.8) are created in the dictionary 
and the source text is replaced by a 
pointer to the entry. Fixed bounds are 
converted to binary and inserted in the 
table. A second file statement (see 
Appendix D.8) is created at the end of the 
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text, for adjustable bounds, and a pointer 
to the statement is inserted in the 
dimension table. Identifiers with 
identical array bounds share the same 
dimension table. 


PRECISION: precision and scale constants 
are converted to binary. 


INITIAL: dictionary entries are created 
for INITIAL attributes. 


INITIAL CALL: second file statements are 
created for INITIAL CALL attributes. 


CHARACTER and BIT: fixed length constants 
are converted to binary; a code byte marker 
is left for * lengths (see Appendix C.8). 
Second file statements (see Appendix D.8) 
are created for adjustable length 
constants, and the source text is replaced 
by pointers to the statements. 


DEFINED: second file statements (see 
Appendix D.8) are created and the source 
text is replaced by pointers to the 
statements. 


POSITION: the position constant is 
converted to binary. 


PICTURE: a picture table entry (see 
Appendix C.7) is created and inserted into 
the picture chain; similar pictures share 
the same picture table. The source text is 
replaced by a pointer to each entry. 


USES and SETS: USES and SETS attributes 
are moved into dictionary entries, and 
pointers to the entries replace the source 
text. 


LIKE: BCD entries are created for 
identifiers with the LIKE attribute. 


LABEL: if the LABEL attribute has a list 
of statement label constants attached, a 
single dictionary entry is created. The 
dictionary entry contains the dictionary 
references of the statement label constants 
in the list. 


OFFSET and BASED: Second file statements 
are made and text references are inserted 
in the DECLARE statements for these 
attributes. 


AREA: Fixed-length specifications are 
converted to binary; second file statements 
are made for expressions; a code byte, 
followed by the length of text reference, 
is inserted in the DECLARE statement text. 


All other attributes, 
constants are skipped. 


identifiers, or 


Phase EL (EK, MM) 


Phase EL, consisting of modules EK, EL, and 
EM, scans the chain of DECLARE statements 
constructed by the Read-In Phase. 


An area of storage known as the 
attribute collection area is reserved. 
This is used to store information about the 
identifiers, and has entries of a similar 
format to that for dictionary entries. 


Complete dictionary entries are 
constructed for every identifier found ina 
DECLARE statement. These identifiers can 
be one of the following types: 


1. Data Items (see Appendix C.4) 


2. Structures (in this case, the 'true' 
level number is calculated) (see 
Appendix C.) i 


3. Label Variables (see Appendix C.4) 
4. Files (see Appendix C.7) 

5. Entry Points (see Appendix C.2) 

b. Parameters (see Appendix C.7) 

7. Event Variables 

8. Task Variables. 


Identifiers appearing as multiple 
declarations are rejected and a diagnostic 
message is given. 


The attributes to be associated with 
each identifier are picked up in three 
ways. 


First, the attributes immediately 
following the identifier are stored in the 
attribute collection area. 


Secondly, any factored attributes and 
structure level numbers are examined. 
These are found by using the list of 
addresses placed in scratch storage by 
Phase EI. Each applicable attribute is 
marked in the attribute collection area, 
and any other information, e.g. dimension 
table address, or picture table address, is 
moved into a standard location in the 
attribute collection area. All conflicting 
attributes are rejected and diagnostic 
messages are given. 


Finally, any attributes which are 
required by the identifier, and which have 
not been declared, are obtained from the 
default rules. l ; 


After the dictionary entry has been 
mađe, furtner processing (e.g. linking of 


chains, etc.) must be done in the 
following cases: 


1. DEFINED data 

2. Data with the LIKE attribute 

3. Files 

4. Strings with adjustable lengths 

5. Arrays having adjustable bounds 

6. GENERIC identifiers 

7. Structure members 

8. Identifiers with INITIAL CALL 

9. Identifiers with the INITIAL attribute 


After the declaration list has been 
fully scanned and processed, it is erased. 


Phase EP 


Phase EP first conditionally marks later 
phases as 'wanted' or ‘not wanted,‘ 
according to how certain flags in the 
dictionary are set on or off. This assists 
in the load-ahead technique. 


The entry type 1 chain in the dictionary 
is then scanned. For each PROCEDURE entry 
in the chain, each entry label is examined 
for a completed declaration of the type of 
data the entry point will return when 
invoked as a function. If this has 
previously been given in a DECLARE 
statement nothing further is done, 
otherwise entry type 2 and 3 dictionary 
entries are constructed from default rules 
(see Appendix C.2). If this default data 
description does not agree with the 
description derived from the PROCEDURE or 
ENTRY statement, a warning message is 
generated. 


At each PROCEDURE entry, the chain to 
the ENTRY statement entry type 1 is 
followed. Each statement is treated in a 
similar manner to that for a PROCEDURE 


entry type 1. 


The CALL chain is then scanned and, at 
each point in the chain, the dictionary is 
searched for the identifier being called. 
If the correct one is not found, a 
dictionary entry for an EXTERNAL procedure 
is made (see Appendix C.2), using default 
rules for data description. Before making 
the entry, the identifier is checked for 
agreement with any of the built-in function 
names. If there is agreement, a diagnostic 
message is generated, and a dummy 
dictionary reference is inserted. 
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If an identifier is found, it is 
examined to see if it is an undefined 
formal parameter. If it is, the formal 
parameter is made into an entry point, 
again using default rules for data 
description. If it is not, or if the 
declaration of the formal parameter is 
complete, the type of entry is checked for 
the legality of the call. A diagnostic 
message is generated if the item may not be 
called. In all cases, the item called is 
marked IRREDUCIBLE if it has not previously 
been declared REDUCIBLE. 


Phase EW (EV) 


Phase EW is an optional phase, loaded only 
if any LIKE attributes appear in the source 
program. 


This phase scans the LIKE chain which 
has been constructed by Phase EK, and 
completes the dictionary entry for any 
structure containing a LIKE reference. 
When a structure in the LIKE chain is 
found, its validity is checked, and 
dimension data and inherited information 
are saved. The dictionary is scanned for 
the reference of the "likened" structure 
and the entry is checked for validity. 


This dictionary entry (see Appendix C.4) 
is copied into the dictionary, with 
alterations if there is a difference 
between the original structure and this 
structure with regard to dimensioned data. 
If both structures have dimensions a 
straight copy is made; if the structure 
with the LIKE attribute has dimensions and 
the likened structure has not, the 
dimension information is added to the copy; 
if the structure with the LIKE attribute is 
not dimensioned and the likened structure 
is, then the dimension data is deleted from 
the copy.' Inherited data is added to the 
copy. If an error is found, the structure 
with the LIKE attribute is deleted and a 
base element copy of the master structure 
is inserted instead. Where copies of 
entries occur which refer to dimension 
tables with variable dimensions, the 
dimension table entry is copied, and new 
second file dictionary entries and 
Statements are created. Similar entries 
must be made if the structure item has been 
declared to be an adjustable length string, 
or nas been declared with the INITIAL 
attribute. 


Finally, the newly completed structure 
is scanned by the ALIGN routine in phase 
EV, to provide correct explicit/inherited/ 
default alignment attributes for its base 
elements. 
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Phase EY 


Phase EY is an optional phase which 
processes all ALLOCATE statements. 


The second file is scanned first and all 
pointers to the dictionary are reversed. 
All ALLOCATE statements using the DECLARE 
chain are then scanned, and the dictionary 
references of allocated items are obtained 
by hashing the respective BCD of each item. 
The attributes given on the ALLOCATE 
Statement for an item are collected 
together. 


A copy of the dictionary entry of the 
allocated item is then made (see Appendix 
C.4), and the ALLOCATE statement is set to 
point to it. The dictionary entry is 
completed by including any attributes given 
on the ALLOCATE statement, and copying any 
second file statements from the DECLARE 
chain which are not overriden by the 
ALLOCATE statement. 


In the case of an ALLOCATE statement in 
which a based variable is declared, no copy 
of the original dictionary entry is 
required. The BCD is replaced by the 
original dictionary reference. 


All pointer qualified references in the 
text are checked to determine that the 
qualified variable is based. For every 
occurrence of a variable with a different 
pointer a new dictionary entry is made. If 
the variable is a structure the entire 
Structure is copied. A PEXP second file 
Statement is made for the pointer and the 
'defined' slot in the new dictionary entry 
is set to point to it instead of to the 
declared pointer. 


The BCD of the pointer and the based _ 
variable in the text are replaced by the 
new dictionary reference followed by 
padding of blanks which will be removed by 
phase FA. 


The based variable can be the qualified 
name of a structure member. If this is so, 
the name is checked for validity. Only the 
first part or lowest level of the qualified 
name in the text is replaced by the 
dictionary reference of the member. It is 
preceded by a special marker to tell phase 
FA that a partially replaced name follows. 


Phase FA 


Phase FA scans the text sequentially. If, 
during the scan, qualified names are found 
with subscripts attached, they are 

reordered so that a single subscript list 


appears after the base element name. The 
dictionary is scanned and references 
obtained for any identifiers which are 
contextually, file, event, pointer 
variables, or programmer-named ON 
conditions. If no reference is available, 
a new dictionary entry is made. The 
identifier is then replaced in the text by 
the dictionary reference. 


If a constant marker is found, the 
dictionary is scanned to check if the 
constant is present. If it is not, a new 
dictionary entry is made (see Appendix C.7) 
and the resulting reference replaces the 
constant in the text. 


If a P FORMAT marker is found, the 
dictionary is scanned for a picture entry 
in agreement. If there is no agreeing 
entry, a new dictionary entry is made (see 
Appendix C.7) and the picture chain is 
updated. The dictionary reference replaces 
the format marker in the text. 


The CALL chain is removed from CALL 
Statements. The appearance of PROCEDURE, 
BEGIN, END, and DO statements results in 
adjustments to the level and count stacks. 
If statement introduction code bytes appear 
(such as SN, SL, CL, and SN2), the current 
Statement number is updated. All data 
items associated with the PROCEDURE, BEGIN, 
ENTRY, and DECLARE statements are removed, 
leaving only the statement identification 
and the keyword. 


Phase FE 


When an identifier is found, the hash chain 
is used to scan the dictionary for a valid 
entry. If one is found, its dictionary 
reference replaces the identifier in the 
output text. If no valid entry is found, 
and the BCD does not agree with any entry 
in the tables of BCDs of PL/I built-in 
functions, then a dictionary entry is made 
as if the identifier was declared in the 
outermost procedure. However, if the BCD 
agrees with a function name, and it is not 
in a SETS position, a function entry is 
made in the dictionary, and its reference 
is used to replace the identifier. 


If a left parenthesis is found, the 
previous dictionary entry is checked for an 
array, function, or pseudo-variable. If it 
is one of these, the relevant marker is 
inserted in the text before the parenthesis 
(see Appendix D.1). 


Checks are also made for the positions 
of function references in assignment 
statements. Any dictionary references 
encountered in the input file are moved 
directly to the output file. 


PROCEDURE, BEGIN, DO, and END statements 
cause the current level count to be 
updated. 


Phase FI 


Phase FI scans the text and checks, where 
possible, the validity of dictionary 
references found. References in a GOTO 
statement are checked that they refer to 
labels or label variables and that the 
subsequent branch is valid. The code byte 
for GOTO is changed to GOOB (see Appendix 
D.1) if the branch is to a label constant 
outside the current PROC or BEGIN block. 
If the branch is to a label variable, GOOB 
is set up unless a label value list was 
given at the declaration, and all members 
of the list lie within the current block. 


List processing based variables in 
ALLOCATE, FREE, READ, WRITE, and LOCATE 
Statements are marked as requiring a Record 
Dope Vector (RDV). Variables in TASK and 
EVENT options on CALL statements are 
checked for validity. 


References are checked if they appear 
where a file is expected. Items in data 
lists are checked for validity, and Data 
Element Descriptors (DEDs) and symbol bits 
are set on for all variables found in the 
lists. 


Any errors which are found cause 
diagnostic messages to be generated and 
dummy references to be placed in the text 
in place of erroneous references. 


Phase FK 


Phase FK scans the attribute collection 
area for entries with the SETS attribute. 
The SETS lists in the dictionary entries 
are scanned, and their syntax checked. 
Identifiers are counted and replaced by 
their dictionary references.  Constants are 
counted, converted to binary, and arranged 
in ascending order in the dictionary entry. 


Phase FO 


Phase FO makes a dictionary entry for each 
ON condition mentioned inside a block. For 
ON CHECK conditions multiple dictionary 
entries are made (see Appendix C.7), one 
for each BCD. If a similar condition is 
mentioned more than once in a block, only 
one dictionary entry is made for that 
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condition, except for file conditions, ON 
CONDITION, and ON CHECK, when separate 
dictionary entries are made for each 
different BCD name. 


SIGNAL and REVERT statements are treated 
in a similar manner to ON statements. 


The dictionary entries for each BCD name 
associated with file or CONDITION 
conditions are checked and, if in error, 
the ON, SIGNAL, or REVERT statement is 
replaced by an error statement. A 
diagnostic message is generated. 


The BCD name of each file entry referred 
to in ON, SIGNAL, and REVERT statements is 
examined. If the BCD is SYSIN or SYSPRINT, 
the dictionary reference of the file entry 
is placed in a slot in the communications 
region. 


A check is made to ensure that formal 
parameters do not appear in CHECK and 
NOCHECK lists. A single dictionary entry 
is created for each CHECK and NOCHECK list 
and a pointer to the entry is placed in the 
relevant entry type 1. 


When dictionary entries are made for 
CHECK lists, one of three different check 
codes is used depending on whether the BCD 
is an ENTRY LABEL, a LABEL CONSTANT, or a 
variable. 


List Processing POINTER and OFFSET 
variables in CHECK lists are treated as 
data variables. BASED variables may not 
appear in CHECK lists. 


A dictionary entry is made for the list 
processing AREA condition. This condition 
is always enabled and may not appear in a 
condition prefix. 


Dictionary entries are also created for 
each ON condition which is disabled for a 
particular PROCEDURE or BEGIN block, and 
for each ON condition whose status is 
changed within the block.  Pointers to 
these dictionary entries are placed in the 
relevant entry type 1. 


All dictionary entries for ON conditions 
are placed in the AUTOMATIC chain for the 
relevant PROCEDURE or BEGIN block. 


A further, quite distinct, function of 
this phase is to substitute error 
Statements for all statements containing 
dummy dictionary references (which have 
been inserted by previous phases on 
detecting a severe error). If a dummy 
reference is found in the second file, the 
compilation is aborted. 


Wherever an element of a label array is 
initialized by appearing as a statement 
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label, an assignment to a compiler label 
has been inserted by the Read-In phase. 
Phase FO checks the validity of each such 
assignment; for each array with this type 
of initialization, a second file dictionary 
entry is made, and all assignments to the 
array are chained. 


Phase FQ 


Phase FQ checks the validity of each item 
in the PICTURE chain in the dictionary (see 
Appendix C.7). 


The precision for each correct picture 
is calculated, together with its apparent 
length, and stored in its dictionary entry. 
A data byte is created in the entry for use 
by Phase FT. 


Invalid pictures cause appropriate 
diagnostic messages to be generated. 


Phase FT 


Phase FT performs certain housekeeping 
tasks. These are as follows: 


1. The second file entries are scanned 
and pointers to each entry are 
inserted in the associated dictionary 
entry (see Appendix C.7). 


2. Each item which has a storage class is 
inserted into the appropriate chain 
for that class (see Appendix C.4). 


3. Constants are placed in the constants 
chain and their apparent precision is 
calculated. Sterling constants are 
converted to pence. 


4. Dimension tables are separated for 
items which are not in structures, but 
which are arrays having similar 
bounds, but with different element 
lengths. 


5. Items which are members of structures 
and which have "inherited" dimensions, 
i.e. are contained in a structure 
which itself is dimensioned, are made 
to inherit their dimensions. If a 
base element of a structure inherits 
dimensions which are not constant, 
second file statements (see Appendix 
D.8) are set up to initialize the 
bounds in the object time dope vector. 


6. Items which have expressions to be 
evaluated at prologue time, e.g. 


parameter descriptions for entry 
points and defined items, are placed 
in the AUTOMATIC chain for the 
appropriate block. 


7. The dictionary entry for any item 
described by a picture is expanded by 
the precision and scale or string 
length, extracted from the picture 
table entry. Identifiers of different 
modes sharing the same picture table 
are now placed in separate tables. 


8. The ‘dope vector required' bit (see 
Appendix C.5) is set on where 
necessary. 


9. When a label array is found which has 
initial label statements for any of 
its elements, the chained statements 
are meved into the second file. The 
original statement is left in the 
text, to be removed by Phase FV. 


10. Dictionary entries similar to label 
PCD entries are made for all TASK 
variarles. 


Phase FV 


Phase FV scans the second file and reverses 
the pointers to the dictionary. 


Dictionary entries for DEFINED data are 
completed (see Appendix C.4 and C.5). 
Overlay and correspondence defining are 
differentiated between, as are static and 
dynamic defining. A preliminary check of 
the validity of defining is also carried 
out. 


When PROCEDURE and BEGIN statements are 
encountered, any second file statements 
associated with data in the AUTOMATIC chain 
for that block are inserted in the text 
following such statements. 


When ALLOCATE statements are found, any 
second file statements associated with the 
item being allocated are inserted in the 
text following the statement. 


When a reference to dynamically defined 
data is found, the base reference is 
inserted into the text following the 
defined reference. 


When an initial label statement is 
encountered in the main text, it is not 
copied intc the output string. 


The dictionary reference of a POINTER in 
a PEXP (pcinter expression) second file 
Statement is inserted into the defined slot 
of the associated based variable. If the 


based variable is a structure this 
reference is propagated throughout the 
Structure. The PEXP statement is then 
deleted. 


A similar procedure is performed for 
BVEXP (based variable expression) second 
file statements whereby the dictionary 
reference of the AREA is inserted into the 
dictionary entry of the associated OFFSET 
variable. 


ADV second file statements referring to 
a BASED variable are checked for compliance 
with the (F) implementation rules. If the 
rules are obeyed, the dictionary entry of 
the 'bound' variable is inserted in the 
appropriate slot in the multiple table 
entry. 


If an MTF statement refers to a based 
variable the appropriate bound slot is 
copied from one multiple table entry to the 
other. 


Phase FX 


Phase FX is an optional phase entered only 
if the ATR (attribute list) or XREF 
(cross-reference list) option is specified. 
It scans the STATIC, AUTOMATIC, and 
CONTROLLED chains, and the formal parameter 
lists. 


For each identifier it creates an entry 
in text scratch storage of the form: 


2 bytes 3 bytes 3 bytes 
pue um emu» ಅಹಾ QD UD p. ctr) GHI IN MED ESD SEN ಮಾ RED SEP ಜಾ SEED ಅವಾ: -r um anan an apan qh am ap eee an: 
| Dictionary TText reference| Text chain | 
| reference [to this item | | 
Wei ee ete ee ಸಸ ಸಾಸ ಎಷೆ 


This entry is inserted into a chain of 
similar entries in the alphabetical order 
of the BCD of the identifier. 


If the XREF option is specified, the 
text is scanned for dictionary references. 
When the dictionary reference of an 
identifier is found in the text, an entry 
is created in a chain of entries from the 
dictionary entry of the identifier. If the 
identifier is that of a BASED item, an 
entry is also created in a chain of entries 
from the dictionary entry of the associated 
pointer. 


Each chain member thus represents a text 
reference to an identifier and has the 
form: 


2 bytes 3 bytes 


| Statement number | Text chain I 


Ld 
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Each reference chain for an identifier 
is in text scratch storage. 


The sorted chain of identifiers is then 
scanned, and for each entry in the chain 
the following actions take place: 


1. The statement number of the DECLARE 
statement, if any, in which the 
identifier was declared is printed 


2. The BCD of the identifier is printed. 


3. If the ATR option is specified, the 
dictionary entry of the identifier is 
analyzed and its attributes are 
printed. For variables having 
constant dimensions and/or constant 
String lengths, these dimensions and 
lengths are printed. 


Except for file attributes, the 
attributes printed will be those 
obtaining after conflicts have been 
resolved and defaults applied. Since 
the file attribute analysis does not 
take place until after the attribute 
list has been prepared (see Phase GA), 
file attributes in the list are those 
supplied by the programmer, regardless 
of conflicts. 


4. If the XREF option is specified, the 
reference chain for the identifier is 
scanned, and the statement number 
contained in each entry is printed 


Finally, all scratch storage is released 
and control is passed to the Ppretranslator 
Phase. 


THE PRETRANSLATOR LOGICAL PHASE 


The purpose of the Pretranslator Phase is 
to expand those statements in the language 
that can be broken down into simpler 
Statements, and to insert explicitly 
generated statements in place of implied 
ones. 


Second level markers (see Appendix D.1) 
are removed from internal compiler codes, 
and some of the I/O statements are changed 
into a form more suitable for the 
pseudo-code phase. 


Arqument lists are examined and the 
matching of arguments with parameter 
descriptions takes place, with temporary 
variables being created where necessary, 
e.g., where data conversions are required. 


If the compilation contains ON CHECK 


conditions the appropriate calls to the 
library routine are provided. 
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Any structure assignments containing the 
BY NAME option are processed. 


If any structure assignment statements 
or structures in 1/0 lists are detected in 
the program, they are expanded into scalar 
assignments and DO groups. 


If the program contains any array 
assignments, or array expressions in 2/0 
lists, these are expanded into DO loops and 
scalar assignments or expressions. 


If the program contains iSUB references, 
the subscripts are computed for the base 
array corresponding to the subscripts given 
for the defined array. 


Additions to the Text 


In addition to changing the content of the 
text, the Pretranslator introduces some new 
symbois and grammatical forms into the 
source text. These are as follows: 


The Umbrella Symbol: this is 
designated by the symbol code X*5E', 


which is used to introduce a literal as 
an operand. It is used only as a bound 
of a DO loop, or in a call of the dope 
vector pseudo-variable. 


Statements within statements: a list 
of statements may be introduced within 
another statement. In this case the 
inserted list is enclosed in 
parentheses. Statements in the list 
are given no statement number field, 
but they have semi-colons at the end. 


I/O statements: the form of I/O 
Statements is changed considerably 
during the pretranslator phases, as ` 
explained in the description of Phase 
GB. 


BUY and SELL statements: special 
Statements are introduced for 
manipulating temporary storage at 
object time: they have a form similar 
to ALLOCATE and FREE statements. 


Temporary Storage:  Pretranslator 
phases create temporary variables for 


function and procedure calls where the 
arguments do not match the final 
parameters, where expressions appear as 
arguments, for control variables for DO 
loops in array and structure 
assignments, and for iSUB defined 
subscript lists. The Pretranslator has 
no mechanism for evaluating 
expressions. Therefore, temporaries 
which have no data type are created for 
expression arguments with no parameter 


description. Such temporaries are 
known as 'chameleon' temporaries. 
data type of these chameleon 
temporaries is completed by the 
Translator generic phase when the 
resultant data type of the expression 
has been determined. 


The 


When the Pretranslator creates a 
temporary from an argument which 
contains any array with adjustable 
bounds or adjustable string length, 
compiler functions (see Appendix D.8) 
are generated in-line, to set up the 
adjustable quantities at object time, 
to enable storage of the correct size 
to be acquired by means of the BUY 
statement. 


The temporary variables created by the 
Pretranslator have dictionary entries 
similar to variables declared in the 
source program, except that the 
temporaries do not have BCD names. 


Phase GA 


Phase GA is an optional phase which scans 
the STATIC chain for file constants and 
OPEN control block entries. 


For file constants a DECLARE control 
block is constructed from the file name and 
attributes, while checking the attributes 
for consistency. For file constants with 
the ENVIRONMENT option a dictionary entry 
is constructed, chained from the file 
constant, containing the storage image of 
the 56-byte DECLARE control block. 


For OPEN control block entries an OPEN 
control block is constructed from the 
attributes in the entry, a check is made 
for consistency, and another dictionary 
entry, chained from the OPEN control block 
entry, is constructed. This new entry 
contains the 8-byte storage image of the 
OPEN control block. 


When the COBOL option is encountered in 
the ENVIRONMENT string of a FILE statement, 
phase GA sets the low-order bit in the 
fifteenth byte of the FILE dictionary 
entry. Although this action overwrites the 
dictionary reference of the ENVIRONMENT 
String, it is permissible since GA is the 
only phase which processes this string. 


The EXCLUSIVE second level marker is 
recognised in the file attribute dictionary 
entry during the diagnostic check and 
construction of the DCLCB or the OCB. 


Phase GB (GC) 


Phase GB, containing Modules GB and GC, 
processes I/O statements. GB removes all 
second level markers from internal 
character codes (see Appendix D.1). It 
then reorders the options so that either 
EDIT, DATA, or LIST options appear last. 


In data lists the DO specification is 
moved so that it precedes the relevant 
list, and the END statement is added. 


In format lists iteration factors are 
expanded. 


RECORD I/O statements for which the 
COBOL file option is recognized are 
examined for validity by GC. Diagnostics 
are put out for LOCATE and READ SET 
Statements for which COBOL files are used. 
A temporary variable is created to assist 
such data transfers as occur when a COBOL 
record is read into or written from a 
structure which does not consist entirely 
of one of the followig: 


e doubleword data 

e fullword data 

e halfword binary data 

e character string data 

e aligned bit string data 


e a mixture of character string and 
aligned bit string data 


I/O activity found within a PROCEDURE or 
BEGIN block causes the bit X'10* to be set 
to one in the optimization byte of its 
entry type 1. 


Phase GK 


Phase GK scans the source text for function 
references. If it finds one, it inserts a 
special marker byte before the argument 
list, followed by: 


1. Two code bytes giving information 
about the type of function, and 
whether it was called with the TASK 
option 

2. The current statement number 

3. The current block level and count 

This phase also inserts a special 


argument marker before each argument in the 
list, followed by the reference of the 
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corresponding parameter and a code byte to 
show whether or not the argument is 
specified in a SETS list. The number of 
arguments present is checked against the 
number given as required by the 
corresponding dictionary entry. 


NULL, NULLO, and EMPTY built-in 
functions are recognised and converted to 
constants. 


Phase GO 


This phase acts as a pre-processor for 
phase GP. 


Phase GP 


Phase GP scans the text for procedure and 
function calls with arguments. These are 
detected by the special markers inserted by 
Phase GK. 


Temporaries (see Appendix C.4) are 
created for any arguments which are 
expressions. (An expression is defined as 
being any sequence of variables and 
operators, other than single variables 
followed only by a subscript list, or only 
by a defined subscript list and then a 
subscript list). If a parameter 
description has been declared in an entry 
declaration, the temporary which is created 
is of the same type as the parameter 
description. Otherwise, a 'chameleon' 
temporary of unspecified data type is 
created, its type being subsequently 
completed when the expression type has been 
determined by the Translator generic phase. 


Expressions are scanned for arrays 
(including partially subscripted arrays), 
structures, or the end of the expression, 
in order to determine the highest form of 
aggregate in the expression, so that the 
correct type of temporary may be created. 


Where the expression contains a 
partially subscripted array, a temporary is 
created with a dimensionality equal to the 
number of cross sections specified in the 
subscript list. 


When single arguments are specified 
together with parameter descriptions, the 
arguments are compared with the parameter 
description. If there is a lack of match, 
action may be taken in one of two ways. 


1. If the data types are compatible, a 


warning message is printed, and a 
temporary is created 
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2. If the data types are incompatible, an 
error message is printed, and the 
parameter description is ignored 


When the argument is a single partially 
subscripted array which matches the 
parameter, a special temporary is created 
which has the same dimensionality as the 
number of cross sections in the subscript 
list, anā it appears to be defined upon the 
original argument. Code is then generated 
to initialize the temporaries, multipliers, 
and virtual origin from the dope vector of 
the original argument and the subscript 
list. 


Whenever a temporary is created, a BUY 
Statement contained in nested statement 
brackets is inserted in the output text, 
followed by the assignment of the 
expression or non-matching argument to the 
temporary. After the end of the PROCEDURE 
or function call, all the temporaries 
generated in the call are released by means 
of a SELL statement in nested statement 
brackets. 


In all argument temporaries created by 
phase GP, other than those created for 
constants, a special flag bit is set on 
(see Appendix C.2), but in the case of 
temporaries created for arguments to 
built-in functions, this bit is turned off 
by phase IM. This bit is used in phase QU 
when halfword instructions replace fullword 
instructions in the manipulation of 
halfword binary operands which are 
temporary arguments. 


Temporaries are created for constants 
which are specified as arguments to 
functions defined by the programmer. 


If a TASK, EVENT, or PRIORITY option is 
present in a CALL statement, then any 
temporaries which are created are of the 
“not sold" type. 


If GENERIC entry labels are specified as 
arguments to procedures, a special 
dictionary entry is made which contains the 
argument and parameter description 
dictionary references, to enable the 
Translator generic phase to select the 
correct generic member. 


A warning message is printed whenever a 
temporary is created for an item declared 
in a SETS list. 


When subscript lists for the number of 
cross sections are being checked, a severe 
error message is printed if a subscript 
list contains too many subscripts, and the 
Statement is deleted. 


Phase GU 


‘Phase GU scans the source text for 
PROCEDURE, BEGIN, and END statements, and 
for statements that may raise a possible 
CHECK condition. 


A list of all items currentlv checked is 
extracted from the CHECK and NOCHECK lists 
present in PROCEDURE and BEGIN statements. 


Items contained in statements that may 
raise a CHECK condition are examined and 
compared with the list of currently checked 
items. If the item appears in the list, a 
SIGNAL CHECK statement is created for it, 
either before the statement concerned (for 
labels and entry names) or after it (for 
variables). 


Phase HF 


The purpose of phase HF is to detect 
Structure assignment statements, possible 
Structure expressions in data lists in GET 
and PUT statements, and nested statements, 
in particular nested structure assignments. 


The leftmost structure in an expression 
or assignment is used as a basis for 
comparison, and if similar structuring is 
not found throughout the expression or 
assignment, diagnostic messages are issued. 
Any expression containing no structures is 
left unchanged. 


The base elements of the structures are 
found, and if the referenced structures are 
dimensioned, a temporary is created for 
each dimension. It is then added to the 
AUTOMATIC chain for the appropriate block. 
Iterative DO loops are constructed, with 
the temporaries iterating between the upper 
and lower bounds of that particular 
dimension. Base elements are assigned, 
witn the temporaries as subscripts, and 
with scalars remaining unchanged. END 
Statements are created for the DO loops, 
and SÉLL statements for the temporaries. 
Tne statements which have been created are 
nested within the original statement. 


Phase HK 


The purpose of Phase HK is to detect array 
or scalar assignments, possible array 
expressions in I/O lists in GET and PUT 
Statements, and nested statements, in 
particular nested assignment statements. 


The leftmost array in an expression, or 
the leftmost array or scalar in an 
assignment is used as a basis for 
comparison, and if similar dimensions or 
bounds are not found in the array 
references, diagnostic messages are issued. 
Any expression containing only scalars is 
left unchanged. 


For unsubscripted arrays which are 
equally spaced in storage only one 
temporary is bought. For all other arrays 
a temporary is bought for each dimension, 
except in the case of certain partially 
subscripted arrays where the number may be 
minimized. Each temporary will be added to 
the AUTOMATIC chain for the appropriate 
block. If the ON-condition name 
SUBSCRIPTRANGE is enabled for any 
Statement, a temporary will be bought for 
each dimension in all cases. Iterative DO 
loops are constructed: for an unsubscripted 
array expression of dimensionality N, the 
temporary will iterate between the lower 
bound of the Nth dimension and an evaluated 
product so that all elements of the array 
are processed; while for other arrays the 
temporaries will iterate between the lower 
and upper bound of the particular dimension 
of the array. The assignment statement is 
added to che output string with additional 
subscripts where necessary. End statements 
are created for the DO loops, and SELL 
Statements for the temporaries. The 
Statements which have been created are 
nested within the original statement. 


The syntax of pseudo-variables is also 
checked. 


Phase HP 


Phase HP scans the source text for 
references to items defined using iSUBs. 
For each reference found, the subscripts 
are computed for the base array 
corresponding to the subscripts given for 
the defined array. 


The subscripts of the defined.array are 
assigned to temporaries specially created 
for this purpose, which are then used to 
replace the iSUBs in the defining subscript 
list. The base array, with the subscript 
list so formed, replaces the defined array 
in the text. 


THE TRANSLATOR LOGICAL PHASE 


The Translator Phase consists of two 
physical phases, the stacker phase and the 
generic phase. The purpose of the 
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Translator is to convert the output from 
the Pretranslator into a series of 
"triples" (see Appendix D.4). A "triple" 
is in the form of an operator followed 
normally by two operands. 


The translation is achieved by using a 
double stack, with one part for operators, 
and the other part for operands, and 
assigning two weights to each operator. 
One weight (the stack weight) applies to 
the operator while it is in the stack, and 
the other weight (the compare weight) 
applies when the operator is obtained from 
the input string. 


When an operator is obtained from the 
input string it is compared with the top 
Stack operator. Depending on the result of 
the comparison, one or other of the two 
operators is switched on to determine what 
action is next to be performed. Apart from 
some special cases, this action is usually 
either to continue to fill the stack, or to 
generate a triple. The special cases lead 
to various manipufations of the stack 
items, after which the translation process 
continues. 


For the purposes of translation, the 
‘input text to the translator is considered 
to consist of operators and operands only. 
This means that I/O options, etc., are 
regarded as operators. 


After translation, the text string 
consists of operands and operators. 
Statements start with an operator to 
indicate a statement number or label, 
followed by the statement type, which may 
be a single operator, as in the case of 
RETURN or STOP, or which may be an operator 
such as a function or subscript marker, 
followed by a list of arguments. This list 
may also include compiler generated 
statements, e.g., DO loops for I/O lists. 
All I/O options are regarded as operators 
and require no markers before them. The 
end of the source text will be marked by a 
special operator, and compiler generated 
code, which may follow this end-of-program 
marker, will appear between the marker and 
the special second-end-of-program marker. 
The end of a block of text will be marked 
by an EOB operator. The program is now 
assumed to be syntactically correct. 


All 


Phase IA 


Phase IA rearranges the source text into a 
prefix form, in which parentheses and 


statement delimiters have been removed, and 


the operations within a statement have been. 


so arranged that those with the highest 
priority appear first. 
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As operators and operands are 
encountered, they are stored in stacks. 
Tables give the priority of each operator 
as it appears in the input text and in its 
stack. 


When an operator is found during the 
scan of the source text, its compare weight 
(see Appendix D.4) is tested against the 
stack weight of the top operator in the 
stack. If the compare weight is the lesser 
of the two, then action is taken according 
to the compare operator. This is referred 
to as the compare action. Similarly, if 
the compare weight for the current operator 
found in the scan is greater than or equal 
to the stack weight of the top stack 
operator, action is taken according to the 
top stack operator. This is referred to as 
the stack action. Normally, the compare 
action is to place the compare operator in 
the stack, and to continue the scan, 
placing any subsequent operand in the stack 
until another operator is found. The 
normal stack action is to generate a 
triple, consisting of the top operator in 
the stack and the top two operands, 
eliminating the items from the stack, and 
inserting a special flag as the operand of 
the triple which is now at the top of the 
stack. The source (compare) item is then 
compared with the new top stack item. 


The output text of the stacking phase is 
in the form of a series of triples, i.e. 
statement types with no operands, and 
operators with one or two operands. If the 
result of a triple operation is to be used 
in a later triple, the appropriate result 
is flagged accordingly. 


Certain phases are marked wanted or not 
wanted at this stage. If the source text 
contains an invocation by CALL or function 
reference, Phases IL and IM are marked 
wanted. If it does not, Phases IL, IM, IN, 
70, IP, 30, MG, MH, MI, MJ, MK, MM, MN, and 
MO are marked not wanted. Phases MB and MC 
are marked wanted when the source text 
contains pseudo-variables or multiple 
assignments; otherwise, they are marked not 
wanted. The DO loop processing phases (LG 
and LH) are marked in co-operation with the 
dynamic initialization phases (LB and LC). 
If LB and LC are requested, the marking of 
LG and LH is left until that stage of 
compilation; otherwise, LG and LH are 
marked by Phase IA independently. 


When ALLOCATE and FREE statements occur, 
phase NG is marked wanted. When LOCATE 
statements occur, phase NJ is marked 
wanted. 


Phase IG 


Phase IG is an optional phase which is 
loaded to process array and structure 
arguments to built-in functions. When 
aggregate arguments are given for built-in 
functions they are expanded by the 
structure and array assignment phases so 
that the built-in functions appear as base 
elements, subscripted where necessary. 


Phase GF examines these arguments, and 
ascertains whether it is necessary to 
create a dummy. If it is necessary, a 
scalar dummy is created, but the assignment 
of the argument expression is not inserted 
in the text, as this would be an invalid 
aggregate assignment. 


Phase IG examines the text for a BUY 
Statement for a dummy for an aggregate 
argument to a built-in function, and then 
inserts an assignment triple in the correct 
place in the text. 


Phase Ik 


This phase immediately precedes the phase 
IL and shares with it the initialization 
processes required by tne main generic 
phase IM. It obtains text block storage 
and moves into it routines and a table that 
wili be used later by the main generic 
phase. Part of the storage is reserved for 
use by the main generic phase as a nested 
function stack area. Control is passed to 
phase IL. i 


Phase IL 


This phase immediately precedes the main 
generic phase IM and completes the 
initialization process begun by phase IK. 
It obtains 4K bytes of scratch storage and 
places in it the entire built-in function 
table and a list of constants used by the 
main generic phase. Registers are set to 
point to the built-in function table, to 
the list of constants, and to the nested 
function stack area reserved by phase IK. 
Further text block storage is obtained for 
use by the main generic phase and a 
register is set to point to it. Control is 
passed to phase IM. 


Phase IM 


This phase is the main generic processor. 
It scans the source text for procedure 
invocatious by a CALL statement, procedure 
or library invocations by a function 
reference, and assignments to "chameleon" 
dummy arguments (see Phase GP). 


Any procedure which is generic and is 
invoked by a CALL statement or function 
reference is replaced by the appropriate 
family member. If the invoked procedure is 
non-generic, it is ignored. A generic 
library routine invoked by a function 
reference is also replaced by the 
appropriate family member. 


The arguments passed to library routines 
are checked for number and type, and a 
conversion inserted where necessary and 
possible. 


The type and location of the result of 
all function invocations is placed in the 
text which follows the end of the text 
which invoked the function. The resulting 
type of an expression assigned to a 
"chameleon" dummy is determined and set in 
the dictionary entry which relates to the 
dummy. 


The argument bit, set on for all 
argument temporaries created by phase GP, 
is turned off for arguments of built-in 
functions. 


Phase IT 


Phase IT scans the source text for function 
triples and, in particular, the built-in 
functions for which code will be generated 
in-line. Further tests are made to detect 
the functions which, according to the 
method used to generate in-line code, are 
optimizable. This applies only to the 
SUBSTR, UNSPEC, and INDEX functions. All 
references to 'chameleon' temporary 
assignments within the scope of these 
functions are removed subject to certain 
restrictions imposed by the function 
nesting situation. 


Phase IX 


Phase IX checks that POINTER and AREA 
references are used as specified by the 
language. This phase is loaded only if 
POINTER or AREA references are found, 
declared either explicitly or contextually. 
Error messages are produced if errors are 
found and the statement in error is erased. 
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Data type triples in the text are 
scanned and a stack of temporary results is 
created containing the values: 


೫ "401 for POINTER 
X'02' for AREA 
X'00' for any other data type 


The maximum permitted number of 
temporeries at any one point in a program 
is 200. The compilation is terminated if 
this figure is exceeded. 


Phase JD 


Phase JD scans the text for concatenation 
and unary prefixed triples with constant 
operands. These are evaluated and the 
results are placed in new dictionary 
entries. The references are passed through 
a Stack into the corresponding result slots 
in the text. 


‘THE AGGREGATES LOGICAL PHASE 


The Aggregates Phase consists of three 
physical phases, the preprocessor (phase 
JI), the structure processor (phase JK) and 
the DEFINED chain check (phase JP). 


The structure processor phase carries 
out the mapping of structures and arrays in 
order to align elements on their correct 
storage boundaries. 


The DEFINED chain check ensures that 
items DEFINED on arrays and structures can 
be mapped consistently. 


Phase JI 


The first function of phase JI is to obtain 
scratch storage in which the text skeletons 
contained in phase JJ are to be held. 

Phase JJ is then loaded, and its contents 
are moved to the scratch storage for 
subsequent use by phases JI and JK. Phase 
JJ is then released and control is returned 
to phase JI. 


The main function of phase JI is to 
expedite data interchange activities. A 
scan of static, automatic, and controlled 
chains is performed. The chains are 
reordered so that all data variables appear 
before non-data items. Adjustable PL/I 
structures and arrays are detected. Each 
entry in tne COBOL chain is mapped as. far 
as possible at compile-time, removed from 
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the chain, and placed in the appropriate 
AUTOMATIC chain. 


Phase JK 


This phase scans the AUTOMATIC, STATIC, and 
CONTROLLED chains for arrays, structures 
(including COBOL structures), adjustable 
length strings, DEFINED items, AREA, and 
POINTER arrays and structures, TASK and 
EVENT arrays, and TASK and EVENT arrays in 


‘structures. 


For the base elements of structures 
without adjustable bounds or string 
lengths, the following calculations are 
made: 


The offset from the start of the major 
structure 


The padding required to align the 
elements on the correct boundary 


All muitipliers of arrays of 
structures. 


For all minor structures and major 
structures the following calculations are 
made: 


Size 


The offset from the preceding alignment 
boundary with the same value as the 
maximum appearing in the structure 


Where a structure contains adjustable 
bounds or string lengths, code is generated 
to call the Library at object time. 


For arrays, the multipliers are 
calculated, unless the array contains 
adjustable items, in which case the Library 
performs the calculations. 


For adjustable structures, arrays, or 
strings, code is generated to add a 
symbolic accumulator register into the 
virtual origin slot of the dope vector, and 
the accumulator register is incremented by 
the size of the item. 


Calculations are made in a similar 
fashion for arrays of strings (in 
structures or otherwise) with the VARYING 
attribute. In addition, code is generated 
to set up an array of string dope vectors 
which refer to the individual strings in 
the array using the dope vector. Code is 
also generated to convert the original dope 


‘vector to refer to the array of string dope 


vectors, instead of to the storage for the 
array. 


The routine which generates code for 
arrays Of VARYING strings is also used to 
generate code for the initialization of 
arrays of TASK, EVENT, and AREA variables. 


DEFINED items are processed in the 
following way: 


Code is generated to set the 
multipliers and virtual origin address 
of correspondence defined arrays 
without iSUBs in the dope vector of the 
DEFINED items from the defining base 
dope vector. 


Code is generated for overlay DEFINED 
items if they do not fall into the 
class which is to be addressed 
directly. The code first maps the 
DEFINED item, if necessary, calculates 
the address of the start of the storage 
to be used by the DEFINED item, and 
finally, relocates the DEFINED item 
using this address. 


Dope vector descriptor dictionary 
entries and record dope vector dictionary 
entries are made for items which need to be 
mapped at object time, or which appear in 
RECORD-oriented input/output statements. 


Phase JP 


Phase JP scans the DEFINED chain, and 
differentiates between the following: 


1. Correspondence defining 
2. Scalar overlay defining 


3. Undimensioned structure overlay 
defining 


4, Mixed scalar-array-structure-string 
class overlay defining 


In correspondence defining, this phase 
differentiates between arrays of scalars 
and arrays of structures. It also checks 
that the elements of the defined item which 
may validly overlay the elements of the 
base belong to the same defining class, and 
that the base is contiguous. 


In scalar overlay defining, this phase 
checks that the defined item may validly 
overlay the base. 


For undimensioned structure overlay 
defining, this phase checks that the 
elements of the defined item may validly 
overlay the elements of the base. 


For mixed scalar-array-structure-string 
class overlay defining, this phase checks 


that all elements of the defined item and 
all elements of the base belong to the same 
defining class (bit or character), and that 
the base is contiguous. 


THE OPTIMIZATION LOGICAL PHASE 


The optimization logical phase consists of 
several physical phases and is loaded if 
OPT-2 is specified in the PARM field of the 
EXEC statement. 


The work done during the Optimization 
Phase can be split into two parts. The 
first consists of testing the text and 
dictionary to see if optimization is 
permissible. As a result of these tests, 
tables are built pointing to optimizable 
text. The second part consists of code 
generation and modification requiring 
Scanning of the tables built in the first 
part, and direct references to the text and 
dictionary. 


All code generation resulting in text 
expansion is placed in a patch file, and 
the point of insertion in the text is 
overwritten with a PTCH triple pointing to 
the patch. The last physical phase merges 
the patch text into the main program text. 


Optimized code is produced for subscript 
address calculations and iterative DO-loop 
control. In the case of subscripts most of 
the optimized code consists of reordered 
triples, but optimized loop control code is 
generated as pseudo-code using BXLE, and 
BXH instructions. 


Only simple loops and subscript lists 
are optimized, and the variables involved 
must be real, fixed binary, scalar integers 
and the constants must be decimal integers. 


The two main problems in deciding 
whether it is permissible to optimize code 
are: 


1. Aliasing of variables 


2. The action of the program for 
exceptional conditions 


Optimization is inhibited where it is 
difficult, or impossible, to decide that 
optimization will produce an object program 
which will execute according to the rules 
of PL/I. The keyword REORDER, indicates to 
the Optimization Phase, that ON-units for 
exceptional computational conditions may be 
ignored. This enables more cases to be 
optimized than for the default setting of 
ORDER. 
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Three types of subscript optimization 
are performed: 


1. Transformation Where possible, a 
. control variable used as a subscript 

is transformed such that, instead of a 
"subscript * multiplier + virtual 
origin' address calculation, each 
iteration produces a simple increment 
Of a register to access the next 
element. 


2. Invariance Where possible, an 
invariant subscript calculation inside 
a DO-loop is moved outside. 


3. Commoning Where possible, a common 
subscript expression is only 
calculated once and this value is 
placed in a register to be used at 
later occurrences. 


For array expressions an attempt is made 
to combine the incrementing of a 
transformed control variable with the BXLE 
or bXH of the optimized loop control code. 


The text is optimized starting from the 
innermost of a nest of iterative DO-loops 
and working outwards. This enables patch 
code, which moves out of a DO-loop, to be 
included in the processing of the enclosing 
DO-loop, hence moving out code as far as 
possible in a nest of loops. 


Phase KA (KB) 


Contains utility routines and common data 
Space used by the later optimization 
phases. Details of the utilities are given 
in Appendix K. 


The utilities enable the optimization 
phases to build and process tables in text 
blocks without concern for physical block 
boundaries, status of text blocks, or 
maintaining pointers to first, last, and 
current table entries. 


The facilities provided: 


1. Define a table using a table control 
block area. 


2. Add new entries to the end of a table. 
Table entries may be of fixed or 
varying length and a table can contain 
more than one type. 

3. Scan a table forwards or backwards. 


: 4. Make direct reference to table 
elements. 


5. Delete a table. 


48 


6. Specify locking of entries. 


7. Remove all locks on table entries. 


Phase KC 


Phase KC scans the text for DO-loop 
Specifications. If the loop is potentially 
optimizable, then any expressions in the 
initial, the TO, or the BY specifications 
are assigned to temporary variables. The 
expression and the assignment are moved 
outside the loop and are replaced in the 
specification by a simple reference to the 
temporary variable. 


Text is also scanned for ON-units. The 
occurrence of each type of ON-unit is 
recorded by the appropriate bit in the mask 
used by Phase KG. 


Phase KE 


Phase KE performs a scan of the dictionary 
and a scan of the text. The purpose of 
these scans is to mark variables ‘unsafe’ 
if they can possibly be affected by eee 
to other variables (i.e., aliases). 
Variables are marked unsafe if they are 
EXTERNAL, DEFINED, defined upon, BASED, or 
PARAMETERS, or if they are (or might be 
through being arguments of procedure calls) 
arguments of the ADDR built-in function. 


In addition, during the text scan, the 
DO MAP table is created. This table 
contains an entry for each DO-loop and 
procedure in the source text. Each entry 
contains information describing the loop or 
procedure and giving its location in the 
text. A chain is constructed through these 
entries giving the order in which they are 
to be processed by subsequent K phases. 


Phase KG 


Phase KG scans the text corresponding to 
each DO MAP entry in turn and builds up two 
lists which are chained off the DO MAP 
entry. The USE list is a list of all the 
real, fixed binary, scalar integer 
variables which are used within the loop. 

A flag byte indicates whether the variable 
is assigned to or is invariant in the loop. 


The SUBS/REGION list consists of two 
types of entry: 


1. A SUBS entry which contains the text 


reference of a SUBSCRIPT triple 
referring to an array for which 
SUBSCRIPTRANGE is not enabled. 


2. A REGION entry which contains the text 
reference of a triple which results in 
an assignment to one or more 
variables. There are four types of 
REGION boundaries: 


ಈ. A GLOBAL region boundary which 
contains the text reference of a 
point where the value of any 
variable could be changed. 


b. A PARTIAL SAFE boundary which 
contains the text reference of a 
point where an assignment is made 
to a variable which is a SAFE real 
fixed binary scalar integer, 
followed by the dictionary 
reference of this variable. 


c. A PARTIAL UNSAFE region boundary 
which contains the text reference 
of a point where an assignment is 
made to an UNSAFE variable (not 
just a scalar). The dictionary 
reference is not inserted in this 
case, 


d. An ITDO region boundary which 
contains the text reference of an 
ITDO triple corresponding to an 
enclosed loop. 


Phase KJ 


Phase KJ creates the SUBS TABLE from the 
SUBS/REGION list produced by phase KG. The 
DO MAP created by KE provides the order of 
processing and further information. 


The Region entries from the SUBS/REGION 
list are copied directly into SUBS TABLE 
whenever they occur. The SUBS entries from 
the list are expanded to contain 
information on the type of expression 
involved at this point. The USE list 
created by KG provides information during 
this analysis. The SUBS/REGION list is 
deleted by this phase. 


The iterative specification triples of 
each DO-loop are inspected, and the spare 
operands used to set 03505 to indicate 
whether this loop is optimizable for BXLE 
or BXH loop control code. 


Phase KN 


Phase KN provides initialization of the 
scratch storage area used by phase KO. 


An initial text scan is made in DO MAP 
sequence, to remove offsets from 
optimizable subscript lists and produce 
hash totals for optimizable subscript 
expressions. The hash totals are placed in 
the SUBS/REGION table and are used in phase 
KO to speed up the matching process. 


Phase KO (KP,KQ) 


Phase KO processes text in the order 
specified in the DO MAP, i.e., working 
through a nest of iterative DO-loops and 
procedures from innermost outwards. 


The three types of subscript 
Optimization: transformation of the control 
variable; invariance; and commoning; are 
performed and optimized code is generated 
and inserted in a patch file. The code to 
be replaced in the original text is 
overwritten with NOP's and a PTCH triple 
points to the patch text. 


All three types of subscript 
optimization require searches for multiple 
occurrences of the same expression in the 
text. This is done by scanning the SUBS 
TABLE for matching triple expressions in 
optimizable subscript lists. When a match 
is found a chain is constructed in the SUBS 
TABLE between the matched elements. The 
code is generated for one chain at a time) 


Code generated for optimized subscripts 
may be inserted: 


1. Before the ITDO triple, i.e., where an 
invariant subscript calculation is 
moved out of a loop or where the 
initial setting of a transformed 
control variable is required. 


2. Before the ITD' triple, i.e., for the 
incrementing code of a transformed 
control variable. 


3. After the ITD' triple, i.e., the 
DROP's for symbolic registers used in 
the optimized code. 


4. At the point of use in the subscript 
list. l 


For array expressions the incrementing code 
for a transformed control variable will be 
deleted if a BXLE or BXH can be generated 
which will increment the transformed 
control variable and control the number of 
iterations of the loop. 
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USSL declarations may be inserted in the 
optimized code to indicate that registers 
have priority and need not be saved and 
restored at branch points. The register 
allccator phase gives these registers 
priority over normal symbolic registers. 


Phase KT 


Phase KT is a renamed replacement of phase 
LA which is now obsolete. It is always 
loaded. This phase is a utility phase 
which remains in storage throughout the 
remainder cf the Optimization Phase and the 
whole of the Pseudo-Code Phase. It 
provides the main scanning routines to 
handle input and output of text containing 
triples and pseudo-code. 


The routine/subroutine directories in 
Charter 3 give a complete list of the 
routines provided, together with brief 
descriptions of their functions. 


Phase KU(KV) 


Phase KU has three main functions performed 
during a single text scan. 


The first function is DO-loop control 
optimization. Each ITDO triple encountered 
during the text scan is checked to 
determine whether or not it has been 
flagged as being optimizable by a previous 
phase. If not flagged the scan is 
continued. All DO-loop control 
specifications headed by an ITDO triple 
flagged as optimizable are replaced in text 
by an optinized pseudo-code group using the 
BXH and BXLE instructions. There are three 
basic forms to this optimized pseudo-code 
control specification, the particular one 
used for any loop depending on the type of 
ster. 


The second function is to detect each of 
the PTCH triples inserted into text by a 
previous pbase. The corresponding patches 
are obtained from patch file text blocks 
and are processed as necessary before being 
inserted into text in place of the PTCH 
triple. 


The last function is that of the 
subscript list processing. Each innermost 
subscript list encountered, as indicated by 
the presence of a SUBS triple in the main 
text, is checked for the occurrence of COMA 
or COMR triples within it. The SUBS triple 
is then altered as may be necessary. 
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THE RSEUDO-CODE LOGICAL PHASE 


The Pseudo-Code Phase accepts the output of 
the Translator Phase, and converts the 
triples into a series of machine-like 
instructions. The transformation into 
pseudo-code is achieved by a series of 
passes through the text; each pass removes 
certain triples and replaces them by 
pseudo-code, until the entire text is in 
pseudo-code form. On completion of this 
phasé, control is handed to the Storage 
Allocation Phase. 


Pseudo-Code Design 


Pseudo-code is essentially a one-for-one 
symbolic representation of machine code, 
designed so that it can be transformed 
directly into executable machine code by an 
assembly process. 


Pseudo-code is constructed in basic 
units, the majority of which have a 
Standard size of three or five bytes. A 
variable sized unit, however, is also 
available to allow flexibility, its length 
being specified by a length code within the 
unit. The formats of pseudo-code 
instructions are shown in Appendix D.6. 


A unit consists of a one-byte operation 
code followed by normally, a two- or 
four-byte field, or on the other occasions 
by a variable length field. The bit 
pattern of the operation code indicates the 
type of unit which it heads. 


Pseudo-Code Items 


In addition to there being one pseudo-code 
item for each machine instruction which 
could be generated, there are also 
pseudo-code items which are produced to 
convey information from one phase of the 
compiler to another. 


These items of information have the same 
format as a pseudo-code item, so that the 
handling and scanning of the source text is 
standardized. They do not, however, appear 
in the final object code. l 


Register Description 


In all cases where a general purpose 
register appears in pseudo-code, it will be 
described symbolically. When conventional 


registers are required in, for example, 
calling sequences, the registers will be 
referred to physically, as they will be in 
all cases of floating-point register usage. 


The Use of Symbolic Unassigned Registers 


Whenever a new register is required while 
pseudo-code is being generated, a symbolic 
register counter is incremented by one and, 
subject to this new value not being greater 
than 16,383, it is used as the symbolic 
name of the required register. When this 
register is no longer required a DROP 
pseudo-code item is inserted into the text 
to indicate to the Register Allocation 
Phase that the physical register allocated 
to this symbolic register may be 
reassigned. 


The Use of Physical Registers 


Physical general purpose registers will be 
used either as arithmetic registers or as 
parameter registers. 


With arithmetic registers, it is the 
responsibility of the pseudo-code 
generation phases to save and restore the 
registers as necessary. This will apply 
both to the general purpose arithmetic 
registers (namely 14 and 15) and to the 
four floating-point registers. Although 
this is of primary interest to the 
expression evaluation phases, it should be 
realised that all phases which generate 
calling sequences must be aware of the 
current status of arithmetic registers, and 
generate code to save and restore them as 
necessary. 


In the case of parameter registers, 
however, the Register Allocation Phase will 
be able to save and restore them as 
required. 


Temporary Descriptors 


As expressions are evaluated, a series of 
intermediate temporary results are 
obtained. These results, or their 
addresses, may be contained in symbolic or 
assigned registers, in a dictionary 
reference, with or without an index 
register, or in workspace. Temporary 
descriptor triples (TMPD) are inserted in 
the text to enable the correct pseudo-code 
instructions to be generated from the 
triples. The format of TMPD triples is 
described in Appendix D.9. ಕ 


Temporary Workspace 


A block of temporary workspace is used to 
store intermediate results obtained in 
evaluating expressions at object time. 
Pseudo-code phases allocate the next 
available workspace location within the 
block, and then update the location 
pointer, whenever the necessity to save an 
intermediate result arises. The location 
of the intermediate result is then 
described for later phases by a TMPD in the 
text. Intermediate results are only 
required during the execution of single 
PL/I statements; they are never preserved 
from one statement to another. 


At the end of the pseudo-code phases the 
maximum size of the temporary storage 
required in each PL/I program block is 
placed in a dictionary entry. The required 
amount of workspace is then allocated in 
each Dynamic Storage Area (DSA) by Phase 
PT. 


Phase LB 


Phase LB scans through the text for 
PROCEDURE, BEGIN, and ALLOCATE statement 
triples. 


Whenever one of these is found, a scan 
is made through the immediately succeeding 
second file statements; this is for any IDV 
(initial dope vector) statement referring 
to a variable replication factor in the 
array initial string: Processing of these 
statements and of the corresponding array 
initial strings is then carried out. 


On completion of this secondary scan, 
the action taken depends on which triple 
was originally found: 


1. For PROCEDURE or BEGIN triples, a scan 
is then made of the AUTOMATIC chain in 
the dictionary. For any scalar 
variables that have been declared 
INITIAL, a set of triples is created 
and inserted into the text. For any 
array declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 


2. For ALLOCATE triples, if the item has 
been declared INITIAL, the initial 
string is scanned, and a mixture of 
triples and pseudo-code is generated. 


Phase LB also marks Phase LG (DO-groups) 


as wanted or not wanted; this is done in 
co-operation with Phase IA. 
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Phase LD 


Phase LD scans the STATIC chain for any 
variables which have been declared INITIAL. 


When a scalar variable is found, the 
phase constructs two dictionary entries: 
one for the constant, and one for the 
converted constant. 


For arrays, the phase scans the initial 
value string, creating an initialization 
table in the dictionary. Replication 
factors are converted and inserted into the 
table; treatment of the constants is then 
as described for scalar variables. 


Phase OS converts the constants to their 
specified internal form. 


Phase LG 


Phase LG scans the text for DO loops. A 
Stack is maintained with each entry 
containing a description of a DO group. 

The stacking reflects the nesting of the DO 
groups. For each DO or iterative DO triple 
a new entry is made et the top of the 
stack. 


DO specification triples are analyzed 
and expressions are assigned to 
temporaries; subscripts in the control 
variable are assigned to binary integer 
temporaries if they are themselves 
variable. At the end of each 
Specification, pseudo-code and triples are 
generated to control the loop. 


Triple operators (see Appendix D.4 ) 
peculiar to the specification of DO ಧಾತ್ರಿ 
are removed from the text. 


‘For control variables, other than simple 
scalars, text is placed in the DO stack and 
used at every appearance of the control 
variable in the generated text. During 
this time, a scan is also made for 
pseudo-variables, subscripts,. functions, | 
and argument markers. 


Phase LR 


Tne purpose of Phase LR is to save space 
during the expression evaluation phase, LS. 
It provides the initialization for Phase LS 


by obtaining 4,096 bytes of scratch storage 


and setting stack pointers. The scan phase 
is initialized and Phase MP is marked. 
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The translate table for scanning 
triples, and the constants for expression 
evaluation are included in this phase and 
are moved to the first 1K area of scratch 
Storage.  Subroutines required by phase LS 
are also moved into scratch storaae at this 


time. Finally, control is passed to Phase 
LS. 
Phase LS 


Phase LS scans the source text to convert 
expression triples to pseudo-code. If a 
triple produces a result, it is added to 
the temporary work stack. 


For the arithmetic triples *,-,*,/,**, 
prefix *, and prefix -, the operands are 
combined to give the base, scale, mode, and 
precision of the result. If conversion is 
necessary, an assignment triple, with the 
target and source types as operands, is 
inserted in the text.  In-line pseudo-code 
is generated for all operators except ** 
and some complex type * and / operators. 
In these cases, library calling sequences 
are generated. An intermediate result is 
always produced and the triple is removed 
from the text. 


The operands of comparison triples GT, 
GE, equals, NE, LE, and LT are combined and 
converted as for the arithmetic triples. 
In-line pseudo-code is generated and the 
triple is removed from the text, unless 
both operands are string type, in which 
case a temporary is created. If the next 
triple is a conditional branch, a mask for 
branch-on-false is inserted. Otherwise, 
the result is a length 1 bit string. 


For the string triples CAT, AND, OR, 
NOT, and string comparisons, if an operand 
is zero, TMPD triples, containing the 
intermediate result from the top of the 
Stack, are inserted in the text after the 
triple. The result is a CHARACTER or BIT 
String or a compare operator. 


When subscript triples appear, a 
symbolic register number is inserted in the 
triple. The result contains the dictionary 
reference of the array and the symbolic 
register. 


For function triples, a description of 
the workspace for the function result is 
inserted in the TMPD triples which follow 
the function triples. The function result 
is added to the intermediate stack. 


For add, multiply, and divide functions, 


. the function and argument triples are 


removed from tne text.  Arithmetic type 
in-line pseudo-code is generated, with 


modifications for the precision and scale 
factor, and the result is added to the 
' intermediate stack. 


With pseudo-variable triples, a special 
marker is added to the intermediate result 
stack. 


Other triples which may use an 
intermediate result, are examined. If an 
operand is zero, two or three TMPD triples, 
containing the intermediate result from the 
top of the stack, are inserted in the text 
after the triple. If both operands are 
zero, the TMPDs for the second operand 
precede those for the first operand. 


Phase LV 


Phase LV provides string handling 
facilities for the pseudo-code phases. 


It converts any type of data item to a 
CHARACTER or BIT string, and an assignment 
triple, with the target and source types 
used as the operands, is inserted in the 
text. 


A string dope vector description is 
produced from a standard string 
description. 


Phase LX (LW, LY) 


Phase LX consists of three modules, LW, LX, 
and LY. Module LW acts as a pre-processor 
for LX and LY, moving constants into 
scratch storage prior to loading the 
string-handling modules. 


Phase LX scans the source text to 
convert string triples to pseudo-code. If 
a result is produced it is added to a stack 
of intermediate string results. 


For the comparison triples GT, GE, 
equals, NE, LE, AND LT, both operands are 
already string type. If one operand is 
zero, the operand is obtained from the 
associated TMPD triples. In-line 
pseudo-code is generated if the operands 
are aligned and are of known lengths less 
than or equal to 255 bytes; otherwise, 
library calling sequences are generated. 
The triple and any TMPD triples are removed 
from the text. 


In the case of the string triples CAT, 
AND, OR, and NOT, the operands are 
converted to string type by phase LV. Zero 
operands are obtained from associated TMPD 
triples. in-line pseudo-code is generated 


when operands are aligned and are of known 
lengths less than or equal to 255 bytes. 
For the CAT operator, the first operand 
must be a multiple of 8 bits unless the 
strings involved are less than or equal to 
32 bits in length. In-line code is also 
generated for the following cases involving 
non-adjustable varying strings: 


1. Character string concatenation of 
varying strings with lengths less than 
256 bytes. 


2. Bit string operations for AND, OR, 
NOT, concatenation, and comparison 
where the strings are aligned and are 
less than 33 bits in length. 


Otherwise, library calling sequences are 
generated. The triple and any TMPD triples 
are removed from the text, and the string 
result is added to the intermediate result 
stack. 


For TMPD triples, if the intermediate 
result described by the TMPD triples is a 
string, a complete string description is 
moved from the top of the intermediate 
stack to the TMPD triples. If the TMPD 
triples do not describe a string, they are 
ignored. 


In-line code is generated for the BOOL 
functions AND, OR, and EXCLUSIVE OR, when 
the third argument is a character or bit 
string constant and the first and second 
arguments are aligned and of known lengths 
less than or equal to 255 bytes. Otherwise 
library calling sequences are generated. 
Subscript and function triples may produce 
intermediate string results. 


Phase MA 


Phase MA generates pseudo-code for both the 
in-line invocations of TRANSLATE and VERIFY 
and for the invocations which call a 
library routine. It is optional depending 
on the presence of the TRANSLATE or VERIFY 
function in the source program. 


Three kinds of tables are handled: 
1. Compile-time created (up to three) 
2. Floating, initialized by in-line code 


3. Floating, initialized by library 
subroutine 


When three constant tables have been . 
created at compile-time, any further 
occurrence of this case, will cause the 
constants of both the second and third 
arguments to be handled via the library. 
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Blocks which have RECURSIVE, TASK, or 
REENTRANT attributes will have their own 
table, otherwise one table will be used for 
many blocks. 


Phase MB 


Phase MB scans the text for pseudo-variable 
markers and multiple assignment markers. A 
stack of pseudo-variable descriptions is 
maintained, together with the left hand 
Side descriptions of multiple assignments 
when they occur. . Pseudo-code and triples 
are generated for pseudo-variables and the 
left hand side descriptions of multiple 
assignments are put out in the correct 
sequence. 


Phase MD 


Phase MD uses the SCAN routine to scan the 
text for ADDR and STRING built-in functions 
for which it generates in-line code. It 
appears before the normal function 
processor phase and removes all trace of 
the in-line function. The general SCAN 
routine passes control when these functions 
are found. 


For all cases of ADDR the generated code 
establishes the start address of the 
argument. If structure name arguments are 
present the structure chain is hashed for 
the first base-element. For array names 
the address of the first element is 
calculated. 


If the argument to the STRING function 
is contiguous in main storage, and its 
length is known at compile-time, an 
adjustable string assignment is generated. 
Otherwise the library routines IHESTGA and 
IHESTGB are called to produce the 
concatenated length and to concatenate the 
elements of the array or structure 
argument. 


Phase ME 


Phase ME identifies all invocations of the 
SUBSTR function and pseudo-variable, all 
UNSPEC, STATUS, and COMPLETION functions, 
and those invocations of the INDEX function 
which can be implemented in-line; and 
generates pseudo-code to perform these 
functions at object time. The scan of the 
text is conducted by the general SCAN 
routine, and all trace of the invocations 
of these functions is removed before the 


54 


normal function processor phase is loaded. 
When the end-of-program marker is 
encountered the terminating routine is 
entered. 


Phase MG 


Phase MG identifies functions which are to 
be coded in-line, and generates, in their 
place, the pseudo-code to perform the 
relevant function. This phase appears 
before the normal function processor phase 
and removes all trace of the in-line 
function. 


The scan of the text is conducted by the 
general SCAN routine, and control is handed 
to the present phase when one of the 
following functions is found: 


ALLOCATION FLOOR BINARY 
BIT IMAG DECIMAL 
CEIL REAL FIXED 
CHAR TRUNC FLOAT 
COMPLEX PRECISION 
CONJG 


Control is also passed to this phase if 
ABS is found with real arguments. The 
arguments are collected, and the 
appropriate routine is entered to generate 
the pseudo-code. When the end-of-program 
marker is encountered the terminating 
routines are entered. 


Phase MI 


Phase MI identifies functions which are to 
be coded in-line, and generates , in their 
place, pseudo-code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 


The scan of the text is conducted by the 
general SCAN routine and control is handed 
to the present phase when one of the 
following functions is found: 


MAX 
MIN 


MOD 
ROUND 


If the number of arguments to the MAX or 
MIN functions is greater than three, a 
library call is generated. 


Phase MK 


Phase MK identifies functions which are to 
be coded in-line, and generates, in their 
place, pseudo-code to perform the relevant 
function. This phase appears before the 
normal function processor phase and removes 
all trace of the in-line function. 


The scan of the text is conducted by the 
general SCAN routine, and control is passed 
to the present phase when one of the 
following functions is found: 


DIM HBOUND 

LBOUND SIGN 

LENGTH FREE 
Phase ML 


Phase ML scans the source text for generic 
entry name arguments to procedure 
invocations. 


Such entry names may be floating 
arithmetic built-in functions or 
programmer-supplied procedures with the 
GENERIC attribute. When one is found, the 
correct generic family member to be passed 
is selected by this phase, depending on the 
entry description of the invoked procedure. 


Phase MM 


Phase MM scans through the source text for 
procedure invocations by a CALL statement, 
or for procedure or library routine 
invocations by a function reference. 


Procedure invocations are replaced by an 
external standard callinq sequence, and 
library routine invocations are replaced by 
an external or internal standard callinc 
sequence as appropriate (see Appendix 
D.10). 


If a CALL is accompanied by a TASK, 
EVENT, or PRIORITY option, library module 
IHETSA is loaded rather than IHESA, and the 
parameter list is modified to include the 
addresses of the TASK and EVENT variables 
and the relative PRIORITY. 


Phase MP 


Phase MP reorders the BUY and SELL 
Statements involved in obtaining Variable 
Data Areas (VDAs) for adjustable length 


strings or temporaries, which were created 
by Phase GK. On entering this phase, the 
BUY triples precede the code compiled to 
evaluate the length of storage required for 
the VDA. This evaluation code is included 
between further BUYS and BUY triples, which 
themselves are between the BUY triple being 
considered and its associated SELL triple. 
Phase MP extracts these sections of code 
and places them before the BUY triple of 
the adjustable string temporary. Since 
such BUY triples may be nested, the phase 
maintains a count to record the nesting 
status. 


Phase MS 


Phase MS scans the source text for 
references to subscripted array elements. 


If references are found, pseudo-code is 
generated to calculate the offset of the 
subscripted element in relation to the 
origin of the array. If necessary, further 
pseudo-code is generated to check the 
subscript range. 


Optimization of constant subscript 
evaluation is carried out on arrays having 
subscripts which are integer constants, and 
for which the corresponding dope vector 
multipliers are constant. This applies to 
arrays with fixed-length elements. 


Phase NA 


Phase WA generates pseudo-code for the 
following triples: 


For PROCEOURE' and BEGIN’ triples a 
Library call is generated to the FREEDSA 
routine. 


For RETURN triples a library call is 
generated, unless a value is to be returned 
as the result of a function invocation, in 
which case code is first generated to 
assign the result to the target field, and 
then the library call is made. If the 
function may return the result as more than 
one data type, a switch would have been set 
at the entry point to the function, and the 
RETURN statement would test the switch 
value, so that the data type appropriate to 
the entry point is returned. 


GOTO triples either will be invalid 
branches detected by Phase FI, in which 
case they will be deleted, or they will be 
branches to statement label constants in 
the same PROCEDURE or BEGIN block. In this 
case, they will be compiled as 
one-instruction branches. 
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GOLN triples are compiled into 
one-instruction branches to the compiler 
label number in operand 2 of the triple. 


A GOOB (Go Out Of Block) triple is a 
branch to a label variable, possibly 
subscripted, or to a label in a higher 
block than the current one (a branch to a 
lower block is invalid). A call is 
generated to a library epiloaue routine, 
pointing at a double-word slot containing 
the address of the label and the 
Pseudo-Register Vector (PRV) offset (for a 
label constant), or the invocation count 
(for a label variable). 


STOP and EXIT statements are implemented 
Simply by invocation of the appropriate 
library routine. 


For IF triples, if the second operand is 
an identifier, or the result of an 
expression which is not a comparison, code 
is gencrated to convert it to a BIT string, 
if necessary. This BIT string is compared 
to zero, either in-line, or by a call to 
the library. 


The second operand may be a mask which 
will have been inserted by the expression 
evaluation phase as a result of the 
comparison specified in the IF statement. 
This mask is put into a generated 
instruction to branch if the condition is 
not satisfied, i.e., either to the ELSE 
Clause or to the next statement. 


For ON triples, code is generated to set 
flag bits and update the ON-unit address in 
the double-word ON slot in the DSA. 


"or SIGNAL arithmetic condition triples, 
in-line code is generated to simulate the 
condition. For all other conditions, a 
library error routine is called. 


REVERT triples generate code to set flag 
bits in the double-word ON slot in the DSA. 


Phase NG 


Phase NG generates the calling sequences to 
the library for DELAY and DISPLAY and WAIT 
Statements. 


| It generates code to call the library 
routines which handle ALLOCATE and FREE 
statements whose arguments are BASED 
variables. 


For DELAY statements, the argument has 
to be a fixed binary integer, and, if 
necessary, code is generated for 
conversion. 
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For DISPLAY statements, the message must 
be a CHARACTER string, or, if necessary, 
converted to one. A parameter list is 
built up to pass to the library. 


For WAIT statements, the parameter list 
is built up in workspace. It consists of 
the address of the scalar expression 
(converted to a fixed binary integer), 
followed by the addresses of the 
event-names that appear in each WAIT 
Statement. If the scalar expression option 
does not appear, the address of the total 
number of event-names is used. 


For the tasking option WAIT, whose 
argument is an EVENT array, the phase makes 
a 4-byte entry in the parameter list, 
containing the number of dimensions 
involved, and the address of the EVENT 
array dope vector. If the WAIT statement 
contains an EVENT array and no scalar 
expression, the first byte of the parameter 
list is set to X'FF'. 


For ALLOCATE and FREE statements, with 
based variables as arguments, a parameter 
list is built in workspace before a call is 
made to one of the entry points to IHELSP. 
The parameter list is an 8-byte RDV 
followed by the address of the AREA 
variable from the IN option if present. 


For ALLOCATE, the pointer-variable in 
the SET option is given the value returned 
by IHELSP. 


Phase NJ 


Phase NJ and its supporting block, NK, 
generate the calling sequences to the 
library module for the RECORD-oriented 
input/output statements: DELETE, LOCATE, 
READ, REWRITE, UNLOCK, and WRITE. 


For each of these calls, the information 
contained in the options of the source 
Statement is passed by a parameter list, 
constructed as follows: 


DC A(DCLCB) 

DC A(RDV|COUNT? | PNTR2 |SDV?) |0 

DC A(EVENT|LABEL^)|O 

DC A(SDV.KEYTO|SDV.KEYFROM|SDV. KEY) 10 
DC A(REQUEST CODES) 


expr in IGNORE (expr) 

pntr in READ SET (pntr) 

SDV of varying string in READ INTO 
(varying string) 

4 Compiler label as result of LOCATE 


ಟು to [| 


REQUEST CODES is a full-word containing 
four control bytes with the following 
meanings: 


Byte 0 Operation code 
00 READ 
08 WRITE 
08 REWRITE 
OC DELETE 
10 LOCATE 
14 UNLOCK 
Byte 1 Group 1 options code 
00 SET 
04 IGNORE 
08 INTO|FROM 
Byte 2 Group 2 options code 
04  KEYTO 
-08 NOLOCK 
Byte 3 Group 3 options code 


04 VARY INTO 
08 VARY KEYTO 
OC BOTH 


Note that null arguments in the 
parameter list or REQUEST CODES are 
indicated by zeros. 


Both the parameter list and the 
REQUEST CODES word are constructed in 
STATIC storage. However, if the argument 
of any of the options refers to AUTOMATIC, 
CONTROLLED, or BASED storage, the parameter 
list is moved to the workspace storace for 
the statement; the argument is then 
provided just before the library call is 
made. 


In the case of the LOCATE statement, the 
phase is respon$ible for generating code to 
set the pointer variable with the pointer 
value returned in the first word of the RDV 
by the library. If the PASED variable was 
a Structure with a REFER option in an 
extent definition, it is also responsible 
for generating code to initialize the 
extent variable named in tne REFER option. 


The DCLCB parameter is taken from the 
FILE option of the statement; the FILE 
option rust be either e file constant or 
file parameter. 


The record dope vector (RDV) is assumed 
to have been constructed by earlier phases, 
except in the case of CONTROLLED or BASED 
variables or CONTROLLED or BASED 
aggregates, when the procedure is as 
follows: 


1. For CONTROLLED or BASED aggregates, 
Phase NJ creates a library call to 
IHESTRA, passing the following 
arguments through registers: 


Register 1 A(D.V) 
Register 2 A(DVD) 
Register 3 A(RESULT.RDV. SLOT) 


2. For CONTROLLED or BASED strings, the 
phase generates code to construct the 
RDV in the workspace storage of the 
Statement, using the dope vector of 
the string. 


The IGNORE expression is taken from the 
IGNORE option of the statement and if 
necessary, converted to an integer. 


The EVENT scalar is taken from the EVENT 
option of the statement. 


The KEYTO SDV is derived from the KEYTO 
option of a READ statement. 


The KEY SDV and KEYFROM SDV are derived 
from their respective options. If 
necessary, they are converted to character 
strinas. 


The PNTR is taken from the SET triple of 
the statement or from the BASED variable of 
the LOCATE triple if no SET triple appears. 


Phase NM 


Phase NM generates the calling sequences to 
the library modules for OPEN, CLOSE, GET, 
and PUT statements. 


For OPEN and CLOSE statements, a 
parameter list is constructed from the 
options given. The options are first 
checked for validity with respect to 
multiple specifications. The arguments on 
the options are checked and converted, if 
necessary, to the correct data type. If no 
file is specified in an OPEN or CLOSE 
statement, it is ignored. The parameter 
lists are as follows: 
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OPEN DC 
pc 
DC 

DC 

20 

20 

DC 

DC 

CLOSE DC 
ac 

DC 


A(DCLCB) 

ACOCB) | 

ACTITLF.SDV) 
A(IDENT.SDV) 
ACIDENT. DED) 
A(KEYLENGTH) 
A(LINESIZE) 
A(PAGESIZE) 
A(DCLCB) 

ACIDENT. SDV) 


A (IDENT. DED) 


Null arguments are indicated by zero 
address ccnstants. 


. For GET and PUT statements, the library 
call is in three parts. The | 
initialization, data transmission (Phase 
NU), and the termination. The 
initialization call requires a parameter 
list to be constructed from the given 


options. The options are checked for legal 


combinations and the arguments examined. 


The parameter list when a file is 


specified is 
DC 
DC 


DC 


A(DCLCB) 
A(next statement) 


A(binary integer) if SKIP or 
LINE is given. 


For GET and PUT STRING, the argument to 
STRING is checked, and the parameter list 


formed is: 


DC A(SDV of string argument) 


DC A(DED of string argument) 


The termination library call has no 


parameters. 


As for the initialization, the 


routine used depends on the options given 
in the statement. 


Phase NT 


This phase, which is a preprocessor for 
Phase NU, has two functions: 


1. Initialization of a block of scratch 
storage for use by Phase NU 


58 


2. Setting up of INCLUDE matrix and 
library routine entries for 
edit-directed, STREAM-oriented I/O 
Statements 


The phase contains all pseudo-code 
Skeletons used by Phase NU. 4096 bytes of 
scratch storage are obtained and the 
pseudo-code skeletons are copied into it. 
The address of the scratch area is then 
passed to Phase NU. 


If a flag has been passed from Phase NM, 
indicating the presence of edit-directed 
I/O, a scan of the text is performed. Data 
and format list items encountered during 
the scan are associated as far as possible, 
and a sufficient set of library modules are 
identified for the edit-directed 
transmission specified in the proaram. The 
INCLUDE matrix is updated and dictionary 
entries ars made for the required library 
format-director routines. 


Phase NU 


Data/format lists in I/O statements produce 
an internal library calling sequence (see 
Appendix D.10) for each data item and 
format item pair, using registers to point 
at the data item, the data item DED, and 
the FED for the format item. 


Iterations of data items, as.in array 
input or output, and of format items, are 
achieved by making DO loops out of the 
iterations. l 


The data items are transmitted serially, 
with program flow going from an item in the 
data list, to the corresponding format item 
and then to the relevant library I/0 
module. On return from the library module, 
control goes to the code for the next data 
item or, in the case of repeated data 
items, to another iteration of the DO loop. 


Remote format statements are executed in 
a similar way. After the R format item is 
met, control is passed directly from the 
data list to the format statement until the 
end of the format statement. Control then 
returns to the item in the in-line format 
code of the EDIT statement following the 
appropriate remote format item. However, 
if no format elements remain but some data 
list elements are still present, control is 
passed back to the beginning of the format 
statement. 


An R format item referring to a label 
which is not attached to a format statement 
will cause an object time error condition 
to be raised, and the execution to 
terminate. 


Phase OB 


Phase OB scans through the text for 
compiler functions and compiler 
pseudo-variables (see Appendix D.8). When 
a compiler function is found, pseudo-code 
is generated to access the operands of the 
compiler functions (e.g., string length, 
array bound), and to place the operand in 
the location specified by the TMPD 
following the function. Assignments to 
compiler pseudo-variables are treated in 
reverse; the result from the TMPD following 
the assignment is stored in the array bound 
or string dope vector slot specified in the 
compiler pseudo-variable. 


Phase OB also scans the text for BUY, 
SELL, and BUY ASSIGN statements. The 
temporary operands of these statements are 
examined, and if they are CAD or short 
fixed-length strings, they are allocated 
the next available workspace offset, and 
the BUY and corresponding SELL statements 
are removed from the text. 


Phase OD 


This phase contains the translate and test 
table used by SCAN, and other tables and 
constants for phase OE. A block of scratch 
storage is obtained into which the tables, 
routines, and constants are moved. A 
pointer to the beginning of this area is 
passed to OE in a register. 


Phase OE 
Phase OE translates the following triples 
into pseudo-code: 

Assignment 

Multiple source assignment 

Multiple target assignment 

ALLOCATE, FREE, BUY, and SELL 


Special assignment 


In-line code is generated for the 
following types of ASSIGNMENT triples: 


1. Floating-point to floating-point 
2. Fixed binary to fixed binary 
3. Fixed decimal to fixed decimal 


4. Numeric field to numeric field, if the 


pictures given for the operands are 
identical 


5. CHARACTER string to CHARACTER string, 
if the operands are fixed lenath and 
not more than 256 characters 


6. BIT string to BIT string, if the 
Operands are aligned and not more than 
2040 bits 


7. Label to label 
8. File constant to file parameter 
9. POINTER/OFFSET to POINTER/OFFSET 


10. FIXED CHARACTER string to VARYING 
CHARACTER string and VARYING CHARACTER 
string to VARYING CHARACTER strinq 
provided that: 


1. The length of the source operand 
is not greater than 256 bytes 


2. The length of the target string is 
not areater than 256 bytes, if the 
maximum length of the source 
String is not known. 


3. For FIXED CHARACTER string to 
VARYING CHARACTER string the 
length of the FIXED string is not 
greater than 256 bytes. 


Library calling sequences are compiled 
for those cases of CHARACTER string to 
CHARACTER string and BIT string to BIT 
string codes not compiled in-line. 


After checking both AREA operands, AREA 
assignments are performed by the library. 


All other assignment triples are 
translated into the CONV pseudo-code macro. 


If the source operand is a constant, the 
type of the target operand is inserted in 
the constant dictionary entry, for 
processing by the constant conversion 
phase, and the assignment is translated 
assuming the target type. 


MULTIPLE ASSIGNMENT triples produce the 
same code as for single assignment, except 
that the registers used by the operand 
concerned must not be changed or dropped. 


Library calling sequences are generated 
for ALLOCATE, FREE, BUY, and SELL triples, 
and pseudo-code markers are left in the 
text for insertion of code by Phase QF. 


With SPECIAL ASSIGNMENT triples, if the 
target is a varying or adjustable string, 
storaqe is obtained if the target is 
AUTOMATIC, or allocated if the target is 
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CONTROLLED. 
translated. 


The assignment is then 


Phase OG (OL) 


Phase OG converts to pseudo-code all 
Statement numbers, statement labels, 
PROCEDURE, BEGIN, PROCEDURE', BEGIN', and 
end-of-program triples. 


The CONVERT pseudo-code macro is 
examined in conjunction with the 
OPTIMIZATION parameter and pseudo-code is 
generated in one of three forms: 


1. Code to cali the library conversion 
package 


2. Code to perform the conversion 
"in-line" 


3. A modified CONV macro which is passed 
to phase OM or OP for processing. 
In-line conversion phases which are 
not required (OM and/or OP) are marked 
unwanted. 


IGN pseudo-code items and JMP triples 
are removed. The amount of temporary 
working space required by each block of 
program is calcuiated and placed in the 
wórkspace dictionary entry (see Appendix 
C.7). 


The format of the text is converted so 
that a pseudo-code item does not span 
blocks. 


The INCLUDE card matrix is formed for 
all the conversion modules required. 


Phase OM 


Phase OM is called when either optimization 
levels 00 or 01 are specified. This phase 
scans the pseudo-code for the CNVC macros, 
whicn phase OG has placed into the text as 
. 28-byte entries containing a transfer 
vector to select the appropriate conversion 
routine within OM, and replaces any such 
macros with in-line code. 


The conversions inserted by phase OM are 
controlled by phase OG. When OPT-0, 
certain of the simpler FIXED DEC to 
PICTURE, PICTURE to FIXED DEC, and FIXED 
DEC to FIXED BIN conversions are passed to 
OM. When OPT-1, the remainder of the 
feasible FIXED DEC to or from PICTURE and 
FIXED DEC to FIXED BIN conversions are 
passed to OM together with FIXED DEC. to 
CHAR conversions. 
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Certain FIXED DEC to PICTURE 
conversions, which phase OG cannot itself 
efficiently detect to be uneconomic when 
performed in-line, are recognized by phase 
OM, which inserts the calls to the 
appropriate library routines. 


Phase OP 


Phase OP generates in-line code to perform 
BINARY to BIT string, BIT string to BINARY, 
and FLOAT to FIXED BINARY conversions. 


Phase OS 


Phase OS scans through the constant chain 
in the dictionary and converts the 
constants to the required internal form. 
These are then stored in a constants pool, 
and the offset of each constant from the 
Start of the pool is saved in the 
dictionary entry for that constant. 


TO permit the correct alignment of the 
constant pool, three scans are made of the 
constant chain; first to convert all double 
word constants, secondly to convert all 
single word constants, and thirdly to 
convert all unaligned constants. 


In the first two scans only one pool 
entry is made for constants having the same 
internal form and value. 


A fourth scan is made of the constant 
chain and all constants required to 
initialize static are converted, but 
instead of inserting these constants in the 
constant pool, they are moved into special 
dictionary entries constructed by Phase LB. 


THE STORAGE ALLOCATION LOGICAL PHASE 


The purpose of the Storage Allocation Phase 
is to ensure that every item requiring 
storage in a PL/I object program obtains a 
unique location of the correct size, 
located on the correct boundary. Items 
requiring storage include PL/I source 
program variables, dope vectors, dope 
vector skeletons, temporary variables, work 
areas, data descriptors, symbol tables, 
addressing slots, register save areas, flag 
areas, etc. Storage locations are 
allocated to items in order of descending 
alignment requirement to avoid wasting 
storace by padding to the required 
alignment. 


The Storage Allocation Phase is also 
responsible for generating prologues. In 
generating the prologues, expressions which 
determine size of variables, code generated 
by the aggregates phase to initialize dope 
vectors, and code generated by the initial 
values phase, must be extracted and placed 
in the correct sequence in the text. Also, 
when a variable depends for its size or 
initial value upon another variable, the 
requests for dynamic storage must be 
arranged so that the dependant variable 
obtains its storage after the variables 
upon which it depends. 


Since all AUTOMATIC and CONTROLLED 
storage is obtained dynamically at object 
time, the Storage Allocation Phase 
generates code to relocate dope vectors 
when the allocated storage address is 
known. 


Phase PA 


The purpose of phase PA is to determine the 
eligibility of the automatic chains of any 
block for STATIC DSAs. Any chain not so 
far found to be ineligible for a STATIC DSA 
is scanned to determine the DSA size. 
STATIC DSAs are generated for any chains of 
less than 512 bytes. 


Dictionary entries are generated for 
STATIC DSAs. This phase also acts as a. 
spill area for routines used in phases PD 
and PH. 


Phase PD 


Phase PD is the first STATIC storage 
allocation phase. It scans the text, and 
for every second file statement encountered 
sets up a pointer in the associated 
dictionary which points to the second file 
statement. It then sorts the STATIC chain 
so that the dictionary entries occur in the 
order in which the storage for their items 
will be allocated. 


Storage is allocated for simple 
non-structured, non-external variables, 
RDVs, DEDs, SAVE/RESTORE entries, and the 
BCD of entry labels and label constants. 
Storage is also allocated for dope vectors 
for all items in the STATIC chain requiring 
them, with the exception of EXTERNAL items. 
A full word address slot is allocated in 
STATIC for each STATIC DSA. 


The external section of the sorted 
STATIC chain is scanned and a 4-byte 
addressing slot is allocated for each entry 


label, label constant, external (entry type 
4) entry, built-in function, or EXTERNAL 
item. For each EXTERNAL item the size of 
the external control section is calculated 
and stored in the dictionary entry. 


The constants chain is scanned and the 
offsets of the storage and dope vectors for 
constants in the constants pool are 
relocated. 


The current size of the STATIC INTERNAL 
control section is computed and the result 
is passed via the communications region to 
the next phase. 


Phase PH 


Phase PH is the second STATIC storage 
allocation phase. It scans the AUTOMATIC 
chain and CONTROLLED chain for all items 
requiring a dope vector. 


For each such item a skeleton dope 
vector dictionary entry is generated in the 
STATIC chain (see Appendix C.7). This 
dictionary entry contains a bit pattern 
equal in length to that of the dope vector 
and containing all those values which are 
known at compilation time. In particular, 
it contains as much of the relative virtual 
origin as is known at compilation time, the 
constant bounds and string lengths, and the 
constant multipliers. 


Skeleton dope vectors are not put into 
the STATIC chain for AUTOMATIC variables in 
any block whose DSA is in STATIC, except 
when the variable dimensions bit is set to 
one. 


If the item is dynamically DEFINED, then 
the dope vector is preceded by one extra 
four-byte slot. (In the case of structures 
there is one extra slot for each element of 
the structure.) If the item is a dynamic 
temporary (temporary type 2) or a 
CONTROLLED scalar string, the virtual 
origin slot is relocated by the length of 
the dope vector. 


In all cases the skeleton dope vector 
dictionary entry is pointed at by the 
dictionary entry of the associated item. 


The sorted STATIC chain is scanned from 
the first skeleton argument list entry. 
For each such entry, space is allocated in 
the STATIC INTERNAL control section 
according to the assembled length of the 
argument list. The offset of each skeleton 
argument list is stored in the OFFSET1 slot 
of the dictionary entry. 
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RDV and DVD entries are found on this 
same scan of the STATIC chain. RDV entries 
are allocated eight bytes; DVD entries are 
allocated the specified length. 


A scan is made of the section of the 
STATIC chain containing STATIC INTERNAL 
arrays. Storage is allocated for each 
array according to its size (computed by 
Phase JK) and the offset of the relative 
virtual origin is relocated to the start of 
the STATIC INTERNAL control section. If 
the array is of the VARYING type and it 
needs a dope vector, then storage is 
allocated for the secondary dope vector. 
The number of elements is calculated for 
INITIAL arrays and stored in the associated 
INITIAL dictionary entry. 


The section of the STATIC chain 
containing STATIC INTERNAL structures is 
scanned. Storage is allocated for each 
structure according to the size of the 
structure (computed by Phase JK), and this 
storage is placed on the correct boundary 
on information supplied by Phase JK. The 
structure member chain for each structure 
is scanned and the relative offset of each 
member is relocated to the start of the 
STATIC INTERNAL control section. Further, 
on the structure member scan, secondary 
dope vectors are allocated when required, 
and the number of elements is calculated 
for INITIAL arrays. 


Phase PL 


Phase PL scans the STATIC, AUTOMATIC, 
CONTROLLED, structure, and PROCEDURE block 
chains for variables which require storage 
for their symbol tables and/or data element 
descriptors. 


When a variable is found which requires 
a symbol table, the variable is joined onto 
the chain of symbol variables for the 
particular block. A symbol table 
dictionary entry is created for the 
variable (see Appendix C.7), and a chain is 
set up to and from the dictionary entry for 
the variable. The new dictionary entry is 
joined onto the STATIC chain. 


The size of the symbol table is 
calculated, and its offset from the start 
Of the STATIC control section is stored in 
the symbol table dictionary entry. 
Throughout the allocation of STATIC storage 
a location counter is maintained to contain 
the next free location in STATIC; this 
counter is increased appropriately. 


All symbol variables require a DED and a 


branch is taken to the routine which 
allocates them. 
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When a variable is found which requires 
a DED, it is determined whether or not the 
DED describes a standard type; there are 
eight standard types, which consist of the 
different kinds of real coded arithmetic 
data that can be obtained by the 
combination of the attributes FIXED/FLOAT, 
BINARY/DECIMAL, LONG/SHORT (default 
precisions only). 


If the DED is of a standard type, a 
check is made for an identical DED that may 
have already been encountered, so that 
there will be only one allocation of 
storage for any one type of standard DED. 
If the DED is not of a standard type, it is 
allocated storage of its own. 


If the variable does not already have a 
symbol table dictionary entry (which 
contains space for DED information), a DED 
dictionary entry is constructed, and the 
offset of the DED in the STATIC control 
section is stored in it. A pointer in the 
new entry in the dictionary entry for the 
variable is also set up. 


When all data element descriptors and 
symbol tables in the compilation have been 
processed, all STATIC storage has been 
allocated and the total size of the STATIC 
control section is placed in a slot in the 
communications region. 


Phase PP (PO) 





Phase PP extracts all ON condition entries 
and places them at the head of the 
AUTOMATIC chain. It then extracts all 
temporary variable dictionary entries from 
the AUTOMATIC chain and places them in the 
zone following the ON conditions in the 
chain. 


All dictionary entries which are totally 
independent of any other variable are 
extracted, and also placed in the zone 
following the ON conditions. 


The phase then extracts all dictionary 
entries which depend upon some other 
variable in containing blocks or in the 
zones already extracted, and places them in 
the next following zone. Dependency 
includes expressions for string lengths, 
expressions for array bounds, expressions 
for INITIAL iteration factors, and defined 
dependencies. This is repeated recursively 
until the end of the chain. If some 
variable depends upon itself, a | warning 
message is issued. 


A special zone delimiter dictionary 
entry is inserted between each zone in the 
AUTOMATIC chain (see Appendix C.7). A code 


byte is initialized in the delimiter to 
indicate to Phases PT and QF whether its 
following zone contains any variables which 
require storage (i.e., it does not consist 
entirely of DEFINED items, which do not 
require storage), and whether or not the 
following zone contains any arrays of 
VARYING strings. 


Phase PT 


Phase PT allocates AUTOMATIC storage, scans 
the CONTROLLED chain, and determines the 
Size of the largest dope vector. It scans 
the entry type 1 chain, and for each 
PROCEDURE block or BEGIN block it allocates 
Storage for a DSA and compiles code to 
initialize the DSA. 


A two-word slot in the DSA is allocated 
for each ON condition in the block, and 
code is compiled to initialize the slot. 
Space for the addressing vector and 
workspace in the DSA is also allocated. 


Two words are allowed for tasking 
information in the DSA if the TASK option 
is on the external PROCEDURE of the 
compilation. 


The AUTOMATIC chain is scanned and dope 
vectors are allocated for the items 
requiring them. Code is compiled to copy 
the skeleton dope vector, and to relocate 
the address in the dope vector. 


Where there is a block with its DSA in 
STATIC, dope vector initialization is not 
performed for the variables in the first 
region of the AUTOMATIC chain. Address 
slots in dope vectors for variables in the 
remainder of the chain are relocated. 


Storage is allocated for addressing 
temporaries type 2 and for addressing 
controlled variables, and for the 
parameters chained to the entry type 1. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for double 
precision variables, single precision 
variables, halfword binary variables, 
CHARACTER strings, and BIT strings, in that 
order. 


The first region of the AUTOMATIC chain 
is scanned and storage allocated for 
arrays, relocating the virtual origin. 
arrays of strings with the VARYING 
attribute, the secondary dope vector is 
also allocated and code is compiled to 
initialize the secondary dope vector. l 
Correctly aligned storage is allocated for 
structures. If a structure contains any 
arrays of strings with the VARYING 


For 


attribute, the storage for the secondary 
đope vector is allocated at the end of the 
structure. 


A pointer is set up in the AUTOMATIC 
chain delimiter to the second file 
statement which has been created. 


The remaining regions of the AUTOMATIC 
chain are scanned and code is compiled to 
obtain a Variable Data Area (VDA) for each 
region. Code is compiled to copy the 
skeletons into the dope vectors and to 
relocate the addresses in the dope vectors. 
During this pass, any DEFINED items which 
are to be addressed directly have the 
storage offset and the storage class copied 
from the data item specified as the base 
identifier. 


Phase QF 


Phase QF, which constructs prologues, scans 
that text which is in pseudo-code form at 
this time with end-of-text block markers 
inserted. 


When a statement label pseudo-code item 
is found, it is analyzed and one of three 
things happens: 


1. The item is saved if it relates toa 
PROCEDURE statement 


2. The item is omitted if it relates to a 
BEGIN or ON block 


3. The item is passed if it relates to 
neither of the first two conditions 


When a BEGIN statement is found, a 
standard prologue of simple form is 
generated, and code is inserted from second 
file statements (if there are any) to get 
the DSA, either dynamically, or in the case 
of eligible bottom-level blocks, by using 
the supplementary LWS made available at 
initialization time. Code is also inserted 
to initialize the DSA and to allocate and 
initialize any VDAs. 


When a PROCEDURE statement is found, it 
is first determined whether it heads an ON 
block or a PROCEDURE block. If it is an ON 
block, a standard prologue (similar to that 
for a BEGIN block) is generated. If it is 
a PROCEDURE block, a specialized prologue 
is generated. This takes account of the 
manner of getting the DSA, the number of 
entry points, the number of entry labels on 
a given entry point, the number of 
parameters on each entry point, and whether 
the PROCEDURE is a function. 
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Prologue code is generated for AUTOMATIC 
scalar TASK, EVENT or AREA variables, in 
order to perform the initialization 
required when these variables are 
allocated. 


The code generated by the prologue 
construction phase is partly in pseudo-code 
and partly in machine code. The machine 
code (which is delimited by special 
pseudo-code items) has the same form as the 
code produced by the Register Allocation 
Phase (see Appendix D.7). 


DSA optimization is performed under 
certain conditions (see Appendix H). 


At the end of the prologue, the 
statement label item saved earlier is 
inserted to mark the apparent entry point. 
Code is produced to effect linkage to BEGIN 
blocks in such a way that general register 
15 contains the address of the entry point, 
and general register 14 contains the 
address of the byte beyond the BEGIN 
epilogue. 


At the end of the text, any text blocks 
that are not needed are freed, and control 
is passed to the next phase. 


Phase QJ 


Phase QJ scans the text for ALLOCATE, FREE, 
and PUY statements. 


On finding an ALLOCATE statement, a 
routine is called which does a ‘look ahead' 
for initialization statements associated 
with the allocated variable, e.g., 
adjustable array bounds or adjustable 
string lengths, and places the text 
references of each statement in the 
dictionary entry associated with each 
statement. 


If the allocated item has a dope vector, 
code is generated to move the skeleton dope 
vector generated by Phase PH into a block 
of workspace in the DSA of the current 
block. 


Any adjustable bound expressions or 
string length expressions are then 
extracted from the text references, and the 
expressions are placed in-line in the text. 


Any information required from previous 
allocations (specified by * in the ALLOCATE 
statement) is extracted from the previous 
allocation, and copied into the workspace. 


Code generated by Phase JK to initialize 


multipliers, etc., is extracted and placed 
in-line, after first loading the variable 
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storage accumulator with the dope vector 
size. Phase JK generates code to increment 
the accumulator register by the size of the 
item. 


If the item has no adjustable 
parameters, code is generated to increment 
the accumulator by the size calculated at 
compilation time. If this size is greater 
than 4,096, Phase JK generates a constant 
dictionary entry, which is used in this 
code. 


If the item has any arrays of varying 
strings, the size of the array string dope 
vector is added to a second accumulator 
register. Code is generated to add the two 
accumulators into the second one, which is 
a parameter to a library routine. A 
routine is then called which extracts the. 
library call inserted by pseudo-code and 
places it in-line in the text. 


Code is inserted after the library call 
to initialize the dope vector in workspace 
to point to the allocated storage. Code is 
generated to transfer the dope vector from 
the workspace to the allocated storage. 


The code generated by phase JK to 
initialize arrays of varying strings, 
tasks, events, and areas is then inserted 
in the output stream. 


Any initial value statements associated 
with the ALLOCATE statement are extracted 
and placed in-line. Tbe initialization 
Statements are then skipped, and the scan 
continues. The last two steps are also 
performed for LOCATE (based variable) and 
ALLOCATE (based variable) statements. 
Action for a BUY statement is similar to an 
ALLOCATE statement, with the following 
exceptions: 


1. Bound and string length code is 
in-line, bracketed between BUYS and 
BUY statements - there is therefore no 
look ahead 


2. There is no initial value code 
associated with temporaries 


3. A slot in the DSA is updated with the 
pointer to the allocated storage for a 


temporary 


The action on encountering a FREE 
Statement is to generate code to load a 
parameter register with the pointer to the 
allocated storage for the FREE VDA Library 
call inserted by the pseudo-code. 


Phase QU 


Phase QU scans the pseudo-code text in 
search of instructions which have 
misaligned operands. (A misaligned operand 
has the UNALIGNED attribute and is not 
aligned on the boundary appropriate to its 
data type). When such an instruction is 
found, QU inserts a move character (MVC) 
instruction in the pseudo-code text to move 
the operand to or from an aligned workspace 
area, and substitutes the address of this 
workspace for the operand address in the 
original instruction. If the address of a 
misaligned operand is loaded into a 
register, a note is made of that register. 
QU thereafter treats the instructions which 
refer to it as if they referred to the 
operand itself, by inserting a move 
character instruction, and substituting the 
workspace address for the reference in the 
instruction. 


In handling misaligned operands, phase 
QU uses storage beginning at offset 32 from 
register 9 for its workspace. 


Whenever a load address (LA) instruction 
is found which lies within the calling 
sequence of a library routine and which 
loads the address of a misaligned argument 
of that routine, an aligned workspace 
address is substituted in the instruction, 
and the requisite move character 
instruction is stacked. It is not inserted 
in the output text until the instruction is 
encountered that loads register 15 prior to 
the exit to the library routine, or in the 
case of EDIT-directed I/O routines, until 
the appropriate branch-and-link (BALR) 
instruction is encountered. The stacked 
move character instruction is inserted into 
the output before the exit to the routine 
if the argument in question is an input 
argument to the routine, and after the 
return from the routine if it is an output 
argument. 


Whenever a fixed binary temporary of 
precision < 16 is encountered in the text, 
the dictionary is checked to see if this is 
a member of an argument list (phase GP will 
have set bit). If it is, the instructions 
referring to it are altered to halfword. 
the displacement in any Load Address 
referring to the temporary is incremented 
by 2. 


References to halfword binary items are 
replaced by halfword instructions where 
PL/I permits. Where possible and 
desirable, fullword instructions are used 
to perform calculations, and only LH/STH 
instructions used to access storage. 


Fullword conversion is inserted into the 
library calls marked by phases LS and NG. 


In handling halfword binary items, phase 
QU uses 4 bytes, beginning at offset 0 from 
register 9, for workspace. - 


Phase QX 


Phase QX is the 'AGGREGATE LENGTH TABLE' 
printing phase. It is entered only if the 
ATR (attribute list) or XREF (cross 
reference list) options are specified. It 
scans the STATIC, AUTOMATIC, CONTROLLED and 
COBOL chains, and, for each major structure 
or non-structured array that is found, en 
entry is printed in the AGGREGATE length 
table. 


An AGGREGATE LENGTH TABLE entry consists 
of the source program DECLARE statement 
number, the identifier and the length (in 
bytes) of the aggregate. In the case of a 
CONTROLLED non-BASED aggregate no entry is 
printed for the DECLARE statement, but an 
entry is printed for each ALLOCATE for the 
aggregate, the source program ALLOCATE 
Statement number being printed in the 
'statement number' column. 


Where the length of an aggregate is not 
known at compilation the word "ADJUSTABLE" 
is printed in the 'length in bytes' column 
of the entry for that aggregate. If an 
aggregate is dynamically defined, the word 
"DEFINED" appears in that column. An entry 
for a COBOL mapped structure (i.e., a 
structure which a COBOL record is read into 
or written from), has the word “(COBOL)” 
appended, but such an entry will appear 
only if the structure does not consist 
entirely of one of the following: 


e doubleword data 

e fullword data 

e halfword binary data 

e character string data 

e aligned bit string data 


e a mixture of character string and 
aligned bit string data 


If a COBOL entry does appear, it is 
additional to the entry for the PL/I mapped 
version of the structure. 


Before printing begins the aggregate 
length table entries are sorted so that the 
identifiers appear in collating sequence 
order. 
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THE REGISTER ALLOCATION LOGICAL PHASE 


* 





The purpose of the Register Allocation 
Phase is to insert into the text the 
appropriate addressing mechanisms for all 
types of storage, and to allocate physical 
general registers where symbolic registers 
are specified or required as base 
registers. 


This phase comprises two physical 
phases, each with a specific function. The 
first, Phase RA, processes the addressing 
mechanisms, while the second phase, Phase 
RF, allocates the physical registers. 


An additional phase RD is called in 
between RA and RF when the optimization 
option is 2 or greater. This paase 
attempts to optimize the storing and 
loading of registers in use over compiler 
generated branches. 


Phase RA (RB,RC) 


Phase RA scans the text for dictionary 
references, the beginninas and ends of 
PROCEDURE and BEGIN blocks, and the 
Starting points of the original PL/I 
Statements. 


A dictionary reference, when found, is 
decoded into a word-aligned dictionary 
address and a code. These are used to 
determine what is being referenced. The 
corresponding object time address as an 
offset and base is then calculated. 


If the address required has an offset 
less than 4,096 and a base which is either 
an AUTOMATIC or STATIC data pointer, no 
extra instructions ere generated. If this 
is not so, extra instructions are inserted 
in the text stream to calculate the 
required address. The calculation of this 
address is broken down into logical steps 
in a 'step table.' On completion, the table 
is scanned backwards to determine whether 
an intermediate result has been previously 
calculated. The steps which have not been 
previously calculated are then assembled 
into the pseudo-code. 


The compiled code is added either to the 
output stream or to a separate file. The 
code in the separate file is terminated by 
a store instruction to save the calculated 
address. The extra "insertion file" is 
placed in the proloque of the relevant 
block by the next phase. Instructions are 
stored in-line if the referenced item is 
CONTROLLED, if it is a oarameter, if fewer 
instructions are required to recalculate 
the base rather than load the stored 
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address, or if the reference itself is in 
the prologue. 


If no addressing code is 
Special item is put in text 
RF what base to use. 


generated, a 
to tell phase 


All relevant information 
and BEGIN blocks is stacked 
at the start and end of the 
respectively. 


for PROCEDURE 
and unstacked 
blocks 


At the start of PL/I statements, code is 
compiled to keep the required PREFIX ON 
Slots in the Dynamic Storage Area updated. 
On meeting the pseudo-code error marker, 
the calling sequence to the library error 
package is generated, and the error marker 
removed. 


If the STMT option has been specified, 
code is generated at the start of each PL/I 
Statement to keep the statement number slot 
in the current DSA up to date. 


Phase RD 


Phase RD examines all EQUs and determines 
their uses. A table is set up in scratch 
text blocks containing a four-byte slot for 
each EQU. The number of text blocks 
required is calculated from the value in 
the ZMAXEQ field in the:communications 
region. The first text block, containing 
the slots for the first N-4 EQU values 
(where N = text block size), is locked into 
main storage so that these slots can be ` 
accessed by direct addressing. 


The other slots are accessed via their 
text references, and their text blocks are 
brought into storage as needed, by the 
compiler control routines. A dictionary of 
text block numbers for,each range of EQU 
values is kept in the phase. This allows 
for a maximum of 64 text blocks, i.e., 
under the smallest SIZE parameter a meximum 
of 16K EQU values are allowed. 


The table is built up during a pass of 
the program text. At the end of the text 
pass the table is scanned. Any EQU which 
is not used is deleted. Any EQU which is 
either before the first use or used more 
than once is flagged by setting the first 
bit of the EQU value on. During this scan 
of the table, the current table text block 
is locked into storage and released when 
the scan is completed for the block. 


| Phase RF (RG,RB) 


Phase RF scans the text for register 
occurrences, implicit and explicit, and the 
start and end of PROCEDURE and BEGIN 
blocks. At the beginning of PROCEDURE and 
BEGIN blocks all relevant information is 
stacked, and is later unstacked at the 
corresponding end. 


Registers are classified as assigned, 
symbolic, or base. 


Assigned registers require the 
explicitly mentioned register to be used. 
If that register is not free it is stored. 
Symbolic registers may occupy any register 
in the range 1 through 8. An even-odd pair 
may be requested. Base registers may 
occupy any of registers 1 through 8. 


When a register is requested, a table of 
the contents of registers is scanned, to 
determine whether the register already has 
the required value. If it does, that is 
used. If it does not, and it is not an 
assigned register, a search is made for a 
free register and this is allocated if one 
is found. Should no register be free, a 
look-ahead is performed to determine which 
register it is most profitable to free. 


If a register contains a base it need 
not be stored on freeing. If a register 
contains a symbolic or assigned register, 
it may require to be stored when freed, 
depending upon whether it has had its value 
altered since any storage associated with 
it was last referenced. 


At a BALR (Branch and Link) instruction 
it is ensured that all the necessary 
parameter registers are in physical 
registers, and not in storage. 


No flow trace is carried out by the 
compiler. Therefore, the register status 
is made zero at branch-in and branch-out 
points. An exception is at a conditional 
branch. Here the registers are not freed 
after having been saved. 


Any coded addressing instructions are 
expanded when found in-line. At a specific 
"insertion point" in a prologue, any 
addressing instructions in the "insertion 
file" are brought in and expanded. 


THE FINAL ASSEMBLY LOGICAL PHASE 


The Final Assembly Phase converts the 
pseudo-code output of the register 
allocation phase into machine code, the 
principal functions being the substitution 


of machine operation codes for pseudo-code 
operations, and the replacement of PL/I and 
compiler inserted symbolic labels by offset 
values. 


Loader text is generated for program 
instructions, DECLARE control blocks, and 
OPEN file control blocks, initial values 
defined in the source program, parameter 
lists, skeleton dope vectors, symbol 
tables, etc. ESD and RLD cards are 
generated for external names and 
pseudo-registers. An object listing of the 
code generated by the compiler is produced 
if the option has been specified by the 
source programmer. 


Phase TF 


Phase TF scans the text, assigns offsets to 
compiler and statement labels, and 
determines the code required for 
instructions which reference labels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
A location counter of machine instructions 
is also maintained. 


Phase TJ 


Phase TJ scans the text until no further 
optimization can be achieved in the final 
assembly. 


A location counter is maintained for 
assembled code, and offsets are assigned to 
labels. 


The size of each procedure is determined 
and stored in the PROCEDURE entry type 1. 
The amount of code required for 
instructions to reference labels is also 
determined, while attempting to reduce this 
from the amount estimated by the first 
assembly pass. 


This phase also attempts to reduce the 
number of Move (MVC) instructions by 
searching for consecutive MVC instructions 
which refer to contiguous locations.. 


Phase TO (TQ) 


Phase TO sets the four byte slot ZPRNAM, in 
the communication region, to contain the 
first four characters of the first entry 
label of the external procedure, for the 
purpose of object deck serialization. 


Chapter 2: The Compiler Logical Phases 67 


Phase TO also produces ESD cards for the 
compiled program. It first makes up six 
standard entries for: 


1. Program Control Section (CSECT) (SD 
type) allowing room for the compiler 
subroutines if these are present. 


2. STATIC internal CSECT (SD type) 
3. Invocation count (PR type) 


4. Entry points to library routines, 
IHESADA and IHESADB (ER type) 


5. IHEQERR (PR) 


6. IHEQTIC (PR) 


If the external procedure has the MAIN 
option, an entry for a one-word CSECT (SD 
type) is made up. An entry is made for the 
CSECT 1H entry and entries are made up for 
all entry labels in the external procedure 
(LD type). 


The entry type 1 chain is scanned and an 
entry (PR type) is made up for each block 
and procedure. 


The external section of the STATIC chain 
is scanned and entries are made up for: 


1. Built-in functions and library 
functions (ER type) 


2. Files (ER type) 
3. STATIC external variables (SD type) 
4. External entry names (ER type) 


5. Programmer ON condition names (SD 
type) 


The CONTROLLED chain is scanned and an 
entry is made up for each CONTROLLED 
variable and task name (PR type). 


The size of the program control section 
is incremented to include tne compiler 
subroutines. 


All STATIC DSAs are put into the STATIC 
INTERNAL control section, their combined 
Sizes being allowed for when the size of 
the CSECT is calculated. 


Module TQ is used to produce a list of 
library conversion routines required for 
execution of the program. ER type entries 
are made up for each name in the list. 
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Phase TT 


Phase TT scans the text and maintains a 
location counter for assembled code. 


Loader text (TXT) and relocation 
directory (RLD) cards for requested 
combinations of load and punch files are 
generated. 


Nested procedures are unnested at object 
time by suitable manipulation of the 
location counter. The offset of each 
procedure from the start of text is left in 
the PROCEDURE entry type 1. 


Compiler labels are numbered for use by 
the object listing phase, and trace 
information is set up at entry points. 
Phase TT also generates the text for the 
compiler subroutines. These subroutines 
are put out in one of the following 
combinations: 


1. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 
STATIC PROLOGUE subroutine 


2. EPILOGUE subroutine 
DYNAMIC PROLOGUE subroutine 


3. EPILOGUE subroutine 
STATIC PROLOGUE subroutine 


Phase UA 


Phase UA generates text for the static 
internal CSECT; initializes a CSECT for 
each static external variable; and, 
optionally (if the LIST option is present), 
lists all the text produced for the static 
internal CSECT and provides suitable 
comments. 


The phase first scans to the start of 
the external section of the STATIC chain, 
generating text for entry labels, label 
constants, compiler labels, file 
attributes, label variable BCDs, and DEDs 
for temporaries. Simple variables found on 
this scan are used, together with the 
labels, to mark the start of the character 
string section of the chain. 


The phase then scans to the end of the 
external section of the chain, initializing 
address constants for external variables, 
external entry names, built-in and library 
functions, programmer-defined ON-condition 
names, external files, and label constants. 
Text is made up for the constants pool. 


The third scan of the STATIC chain 
Starts at the point left by the previous 


scan, and generates text for dope vector 
skeletons, argument lists, RDVs and DVDs, 
and symbol tables. The scan is terminated 
at the end of the chain. 


Phase UA makes up RLD cards for the 
address slots for STATIC DSA's and for the 
address slot of the start of the epilogue 
subroutine, if generated. 


Text cards are output to initialize all 
AREA's, EVENT's, and TASK's. Arrays of 
AREA's, will have a text card for each 
element. 


Phase UD 


Phase UD generates RLD and TXT cards to set 
up dope vectors at link-edit and load time. 


TXT cards are generated for each STATIC 
DSA, containing its length, which is found 
in the STATIC DSA entry. 


TXT and RLD cards are generated to set 
up the dope vectors for structured items 
and any non-structured items appearing in 
the AUTOMATIC chains. The TXT cards are 
derived from the skeleton dope vector 
entries. The RLD cards are generated for 
each virtual origin slot. 


When the last STATIC DSA has been 
processed control is released from phase 
UD. 


Phase UE 


Phase UE initializes those items on the 
STATIC chain not processed by Phase UA. 


The phase first scans to the start of 
the external section of the chain, making 
up text for simple data, and listing label 
variables. 


The second scan starts at the head of 
the character string section of the chain, 
and initializes dope vectors for all static 
internal variables which need them. 


The third scan corresponds in extent to 
the third scan in Phase UA, but generates 
text for arrays, and simple and interleaved 
structures. At the end of this scan, a : 
test is made to determine whether the 
external procedure of the program has the 
MAIN option. If so, a one-word CSECT 
(IHEMAIN) is made up, to contain the 
address of the principal entry point to the 
compilation. 


The phase then executes its final scan, 
which extends over the external section of 
the chain, to initialize a CSECT for each 
external variable or external file. 


Finally, any incomplete text and RLD 
cards are punched out, and an END card is 
produced for the compiled program. If the 
OBJNM parameter is present for batch 
compilation, phase UD punches a NAME card 
to follow the END card. 


Phase UF (UH) 


Phase UF scans the text, and lists, in 
assembly language format, machine 
instructions compiled for the source 
program. It inserts comments in the 
listing for statement numbers, statement 
labels, entry points, prologues, and 
procedure bases. 


Phase UF contains module UH which 
generates NAME from a dictionary reference. 
UF also lists the text for the compiler 
subroutine. This is done by releasing UH 


. and loading module UI which performs this 


function. Upon termination of this phase 
module UI passes control to phase XA. 


THE ERROR EDITOR LOGICAL PHASE 


The Error Editor Phase is entered at the 
end of all compilations. The first phase, 
Phase XA, examines the dictionary and 
determines whether there are any messages 
to be printed out. If there are none, this 
phase terminates the compilation. If there 
are diagnostic messages to be printed out, 
phase XB is loaded and the third section of 
the phase directory is completed. Phase XC 
is then loaded and this together with phase 
XA causes further modules (XF, and blocks 
XG to YY) to be loaded, which process the 
error dictionary entries and print out the 
appropriate messages. 


Phase XA 


Phase XA examines the heads of the error 
chains in the first dictionary block, and 
the programmer options which specify the 
severity level of messages required. If 
there are no diagnostic messages to be 
printed, this phase prints out a completion 
message and completes the compilation. If 
diagnostic messages are required, the phase 
loads module XB which completes the phase 
directory for Compiler Control. Phase XB 
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is then released and phase XC and the 
message address block XF are loaded. 


The error editor then scans down the 
error message chains and marks each error 
dictionary entry with an indication of 
where the associated message is to be 
found. This information is obtained from a 
table in module XF. 


The text of all error messages is kept 
in modules XG through YY. The messages are 
ordered, by severity, within these modules. 
Module XA will have listed those modules 
which contain messages required for a 
particular compilation. Module XC loads 
and releases these modules, one at a time, 
and extracts the required messages. Having 
loaded a particular module, the phase scans 
down the associated error message chain in 
the dictionary for error entries associated 
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with the module. It accesses the error 
message text and scans it. 


The message to be printed is built up in 
a print buffer in internal compiler. code. 
This involves a translation from EBCDIC 
mode, which is used for the message text 
skeleton. The message is completed by the 
insertion of a statement number, an 
identifier, or a numeric value as specified 
by the message dictionary entry. The 
message is segmented, where necessary, to 
avoid spilling over a print line, 
translated to external code, and finally 
printed out. 


When all error message dictionary 
entries have been processed, module XB 
returns control to phase XA, which passes 
control to module AA for termination of the 
compilation. 


CHAPTER 3: FLOWCHARTS, TABLES, AND ROUTINE DIRECTORIES 


Note: For descriptions of terms and 
abbreviations used in the text during a 
compilation which are mentioned in this 
chapter, refer to Appendix D.11. 


This chapter provides a complete guide 
to the compiler logic, in the form of 
flowcharts and associated tables and 
routine directories, arranged in phase 
order. 


Flowcharts 


The flowcharts are presented at three 
levels of detail -- overall, logical phase, 
and physical phase. The overall compiler 
flowchart (Chart 00) points to the logical 
phase flowcharts (Charts 01 through 11), 
each of which appears at the head of the 
set of physical phase flowcharts to which 
it points. The physical phase flowcharts 
point (by means of identifiers placed next 
to the blocks) to the various routines 
used. Entry points to physical phases are 
labeled. 


Where transfer is effected between 
modules within a physical phase, the entry 
label into the entered module is shown as 
follows: 


1. Where the means of transfer is a 
transfer vector, an asterisk is shown 
as the label on the flowchart, and a 
note at the foot of the chart states 
that the transfer vector table is 
located at the start of the module. 


2. When transfer is made from a decision 
block, the block representing the entry 
is labeled. 


With the exception of "fall-through" 
branches, all branches from decision blocks 
are labeled where possible. Where the 
branch is actually a branch table, this 
fact is indicated on the chart, and the 
label of the branch table is given. 


In some cases, additional labels have 
been given, to assist in following the 
program flow. 


Tables and Routine Directories 


For each physical phase, a table is 
provided, which lists the operations 
performed and identifies the routines and 
subroutines involved. Where applicable, a 
routine directory follows the table. This 
provides an alphanumerically arranged list 
of the routines and subroutines contained 
in the phase, and states their function. 


In some cases, a physical phase 
comprises more than one module; this means 
that routines contained in different 
modules may be listed together in one 
routine directory. To assist in 
cross-reference to the compiler listings, 
the following convention has been adopted: 
if a routine is contained in a module whose 
label is not identical to that of the phase 
under discussion, the label of the 
containing module is inserted in 
parentheses after the routine name in the 
directory. 


In the case of a phase sharing a routine 
contained in another phase, the label of 
the containing module is indicated in 
parentheses after the routine name in the 
"Subroutines Used" column. The routine 
will not then appear in the routine 
directory for the phase under discussion, 
but will be found in the routine directory 
for the containing phase. 


Chart and Table Identification 


Identification of tables and physical 
phase flowcharts is based on the phase 
label. 
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e Chart 00. Overall Compiler Flowchart 
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€ Chart AA. 





Resident Control Phase Logic Diagram (Modules AA through AM, and JZ) 
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$**599K29*995$$$2$*2$ SSSSSK 36464468468 *$**5Kl*$*9$$*$9$$*$99 *$$9€K595*929$*$529*9* 
$*9**K1*999249999* *PUT INSTRUCTION* *EXEC TRN.* * * 
SENTRY TO TRACE + *AND ITS ADDRESS* *PUT CC, CHANGED* * PRINT TRACE * GET NEXT * 
ROUTINE *$---—-—---»* INTO TRACE Beene ==) >* REGISTERS AND *-------- > LINE --—---2-2-»5* INSTRUCTION * 
* + PRINT LINE * STOR. INTO * $ 
PETE TEL ET ETE EES] * * * LINE * $ * 
*$*$$9$6$$$$9*$*$$$$ PEEP RETEST EES ESS] PEE EEE EEE LE EE SEE SSSSHESSSHOSTKESE 
EXIT FROM THE ABOVE LOOP WILL OCCUR WHEN A PRIVILEG ED OPERATION 
INTERRUPT OCCURS ON ENCOUNTERING AN END TRACE MARKER IN THE 
CODE BEING TRACED. 
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Table AA. Module AA Compiler Control Resident Control Phase 


ತತ ಜಾಗಾ ne D re ee a ee ee Se ಕಾಣ Qe ee ee at ree qm 1 
| Main Processing | | 
| Statement or Operation Type | Routine | Routine Called | 
bo 
{initializes the compiler | ZINIT | LOADW, ABORT 


| | | 
{Parameters passed: General register 1 points at| | 
{the passed parameters | | 

| 


{Entry to the operating system: GETMAIN (೧), | 
|TIME, LINK, SPIE | | 


—————————————————————————————-—-——--—-—--—--—-----4---------------]4---------------------——- 


|Deletes a list of loaded phases | RELESE | ZUERR, ABORT 


| | | 
|Parameters passed: PAR1 -- address of list of | | 
|phases to be deleted | | 

| 


|Entry to the operating system: DELETE | 


o me — —À cms — cd — —— eee —— — — 


{Deletes a list of loaded phases and passes | RLSCTL |Module AD if inter- 
jcontrol to either the next requested phase or | | phase dumping is req- 
|the next named phase | |uired; Module AE if it 
| | lis end of Read-In 
|Parameters passed: PAR1 -- address of list of | |Phase; ZUERR, ABORT 
|phases to be deleted; PAR2 -- address of name | 
{of phase to which control is to be given, or | 
| zero | 
| Parameters returned: PARI -- load point of new | 
[phase . | 
18೫7122೫ to the operating system: DELETE, | 
{LOAD (EPLOC) , LOAD(DE), LINK | 
[Loads the required phase and returns control to|LOADX | ZUERR, ABORT 
|the caller. The phase may be loaded again | 
| 
| Parameters passed: PAR1 -- address of name of | 
|phase to be loaded l 
|Parameters returned: PAR1 -- load point of | 
| 
| 


ಯಾರು US eee ee — — 
pe SS 


| phase 
| Entry to the operating system: LOAD (DE) 


| 

| | 

| | 

| | 

| | 

| | 

| | 

| | 
SS 
{Marks phases as ‘wanted’ and ‘not wanted’ | REQEST | ZUERR, ABORT | 
| | 
|Parameters passed: PAR1 -- address of | 
[list of phase names to be marked 'wanted;*' | 
|PAR2 -- address of list of phase names to be | 
|marked ‘not wanted’ | 
| 

1 


|Entry to the operating system: None 


[Puts a record out to SYSLIN 


| record 
(Entry to the operating system: PUT LOCATE (QSAM) 


be —— — —— — — ee a — ಆನಿ ಮರಣ eu ಇರಾ, ms ams ಆದಾ D. ವಾವ ಇಡಾ 


|Puts a record out to SYSPUNCH 


| 
| Parameters passed: PAR1 -- address of output 
{record 


[Entry to the operating system: PUT LOCATE (QSAM) 


| 
| 
| 
| 
| 
| 
+ 
| | 
(Parameters passed: PAR1 -- address of output | 
| 
| 
$ 
| 
| 
| 
| 
H 


———— — | 
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Table AA. Module AA Compiler Control Resident Control Phase (cont'd) 


ಧನಾ ವಾರಾ a er nn ee ee ಜೂರಾ ರಾರಾ ದಾನಾ aa = 
| f |Main Processinqg| | 
| Statement or Operation Type | Routine |Routine Called | 
eh 
|Deletes currently loaded phases and passes | ZABORT, ABORT |Module AD if dump op- 


[control to the Error Editor | 


| 
jEntry to the operating system: LOAD(EPLOC) if (| 
|dump option specified | 


jtion specified; RLSCTL 


-— — — — — —-— — oe ee — 


|performed automatically. 


a 
Jg 
bi 
"5 
ಳು 
>< 


| 
|Marks error on SYSIN data set. 


| 
| 
| 
mh }----------~------------- 
|Picks up completion code and returns control to|ZEND | ZUPL 
[the program that called compiler | | 
| | | 
|Entry to the operating system: TIME, FREEMAIN, | | 
| DELETE i | 
——————————————————————— ——————————————-——-j--------------- —— ee ar ap ಇದಾ ಲಾವಾ aP ಆಬಾ ಲ X X ಮನಾ RUD RÀ ಆನಾ ಮಾರಾ ಖಾನ Oe ಭಾನ apo cpm D: 
|Handles all program checks | PIH | ZUERR | 
| | | | 
|Parameters passed: ARINT holds address of | | | 
|routine wanting to handle interrupt. ARMASK | | | 
|holds mask indicating which interrupts it is | | | 
{desired to handle | | | 
| | | | 
{Entry to the operating system: None | | | 
ಕಾ ರಾಕಾ ನಾ ಹೊಸ ಮಾತ್‌ ಸವಾರ CENSOR OR fetus Se RIOR: ONERE NCEE TONER) (St ಎವಿ ಹಮಾರಾ ಮಾತಾಕಿ 
Table AA1. Module AA Routine/Subroutine Directory 
Wigs QNM M MN ತದಾ CY Gu CECI EE CPC CM CE ECL E CD ಹತಾ MTM DEM EG IC CC DC ಅವನಾ ವಷ್ಯ 
| Routine/Subroutine | Function | 
| ABORT |Deletes currently loaded phases, passes control to error editor. | 
| | 
|BLKERR - |Enters message "REFERENCED BLOCK NOT IN USE", then terminates | 
| l | compilation. | 
l | i | 
| CONSLD |Takes dictionary reference and points at relevant slot in dictionary| 
| jcontrol block area (DSLOTS). | 
| | | 
|CONSLT {Takes text reference and points at relevant slot in text block | 
| {control area (TSLOTS). | 
| | . | 
| DFREE |Finds dictionary block which can be written on disk to make room for| 
| ja new block in storage. | 
| | 
| LFERRX |Marks error on SYSLIN data set. | 
I | : | 
| LOADX [Loads required phase and returns control to caller. The phase may | 
|be loaded again. | 
B | 
LOADW |Loads required phase and returns control to caller. | 
| 
PIE [Handles ali program checks. | 
| | 
PLERRX |Prints record on SYSPRINT data set. Pagination (paging action) is | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


READX i a block from disk. 

RELESE ae all loaded phases. 

REQEST {Marks phases as ‘wanted’ or ‘not wanted.‘ 

RLSCTL leo all loaded phases and passes control to next required or 

| | named phase. 

SS SS 


Table AA1. Module AA Routine/Subroutine Directory (cont'd) 


- |Routine/Subroutine| Function 
|SPERRX [Marks error on SYSPUNCH data set. = = = 
| ZABORT ಸಾ currently loaded phases and passes control to error editor. 
ZEND |Picks up the completion code for the compilation and returns control 


|to ZINT to continue tne batch, or to the operating system at the end 
lof a single or batch compilation. 


| 
INIT |Initializes the compiler. 


— — —À M — — — — — ರಾ — — i — 


2 
| 
ZULF. |Puts record out to SYSLIN data set. 
ZUSP |Puts record on to SYSPUNCH data set. 
SR ವಿವ v MOM ಮು ಟು ಸಕಸ c Sc Ó— ÀM 
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Table AB. Module AB Compiler Control Initialization 


pp 


| |Main Processinqg| | 


| Statement or Operation Type | Routine | Routine Called | 
a 
jIssues a BLDL macro instruction on all phases |PROPEN | None i 
jin compiler, and constructs a compacted phase 


|Entry to the operating system: BLDL 


uA ama. cuum SONS eque ctum eme ಅವನಾ cuum YD GERD NY uU A ಆಂವಾ ಆವಾ QUID SE SS SD UM CO ನ EDD ಆನಾ UD QUA ED GA ಅವ ಆನಾ CP. AD CAD cu amu) AED tuo cum po qup m ಸರ cune ಆ ಸಾರಿಯ AUT cm) que SEED amp UD cum GED D ಆಧಾ ಆ 


|Prints initial heading and performs scan of | OPTPROC 
Joption list. Default options are taken where | 
|necessary | 

| 


|Parameters passed: General register 1 points to| 
loption list passed at invocation time l 


|EnLry to the operating system: TIME, 
| PUT LOCATE (QSAM) 


—-——————-----------------------—-------------------------------4---------------------——- 
[Makes the initial space allocation for text and|OPENR | None 

{dictionary blocks. Sets up communication | | 

| region 


| 
| dictionary | 
| 
| 


None 


— — — — — —À — tere ಪಾ ಜಣ ಜಾ 


[ 
|Entry to the operating System: GETMAIN(R) 
t 


{Opens spill file if text and dictionary blocks |OPENSP 

jare 1K i | 

| "TEE | 

l£ntry to the operating system: OPEN E l 
-— amo amn a ಆವಾ ಆವಾ ಆಂವಾ D an ಅದನ eee ಆನಾ MD ee os ee ಮಾವಾ ee ee ದಾರು ee UND cup ee GERD ee D ee oe D D O ee ee aD Sane Se ಅಧಾ ದರಾ, -———————-d------—----------—----—- 
{Obtains the guaranteed 4K of scratch storage | GETSCR | None 


| 
|Entry to the operating syster: GETMAIN(R) 


| 
{Loads intermediate file writer (Module AC). | 
lvets buffer sizes for 5175773 and opens the data] 
| 
| 
| 
| 


| set 


|Entry to the operating system: LOAD(EPLOC), 
| OPEN 


[Prints out list of options for this compilation|NDMP 
| 


| 
{Entry to the operating system: None | 


TET 
|Enters error messages generated when SYSIN, | 5313 E | ZUERR (AA) | 
| SYSPRINT opened | 


| 
{Entry to the operating system: None 


{Reads first card and stores. Uses as heading 
(if required 


ZURD, ZUERR, 2007 | 
(all in AA) | 


! 
l 
t 
| 
i 
| 
| 
| 
l 
| 
| 
i 
| 
| 
| 
| 
! 
i 
| 
| 
| 
pe 


m 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


|Return to pre-initializer in IEMAA | ABOUT | None | 
. Le aper teo SS ES ಎತ ಆನಾ ಆದಾ SS SS ಎರಾ A ED ಘೂ —-———----------------------------------4| 

|Opens SYSPUNCH if MACDCK specified | MCD | ZUERR eg 
| | | | 
|Entry to the operating system: OPEN | | | 


FEE 


{Loads dictionary handling control routines | LODCNTL | None 
| (phase IEMAN or XEMAL depending on normal 
|dictionary or extended dictionary being 
{specified in the options) 


| 

| 

| 

| | U 
Entry to the operating system: LOAD, | 
muck 


| 
SATE 


ENS EEE 
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Table AB1. Module AB Routine/Subroutine Directory 


[Routine/Subroutine| Function | 
ಶ್‌ 
| GETSCR {Obtains scratch storage. | 
| NDMP | Prints lists of options for current compilation. | 
| NODUMP [Loads intermediate file writer module AC. Sets buffer sizes for 
| |SYSUT3 and opens data set. | 
Ti | Makes initial space allocation for text and dictionary blocks. gatel 
| [up communications region. | 
elite eis spill file. | 
ಬಾಗದ PM initial heading and performs scan of option list. | 
[2313 |Enters diagnostic messages generated when SYSIN and SYSPRINT data | 
| [sets are opened. | 
ean | Issues BLDL Macro instruction and constructs phase directory. | 
[Roco {Reads first card. | 


ಸಾಯು ಹಾವು ವಷ ಪವ ಮ eet ಪೂವವ A ಮಸ eC EN ಎಮ EE ಮಸಾಜು, ms WU ue ಎಲಾಲ. auum vus ARE cape HUN iU uar, ER aereo EH, a mus cuu iY eee ee VEU ಯಾವಾ GEE ಇಮಾ: em ee cmm che ಇಯು: mam ಇವಾ, ಆಕಾ ಇಮಾ De ce et ಇಷಾ 


Table AC. Module AC Compiler Control Intermediate File Control 

ಮುನ ಸುಭಾಸ ag ME ee erc MM qoom uec qe ed n c 1 

| [Main Processing] 

| Statement or Operation Type | Routine | Routine Called [ 

fam nn nnn nn nnn | —————- —--------—-----------—- 

{Writes a record onto SYSUT3 | IEMAC | None 
| 
| 
| 
| 


| 
{Parameters passed: PARL -- address of output 


| 
| | 
| | 
| record; PAR2 -- length of record f | 
[Entry to the operating system: PUT LOCATE(QSAM) | | 
po ET +--------------- }~-~--------------------- 4 
{Link to file switching routine (Module AG) | ENDED | None | 
| | | | 
{Entry to the operating system: LINK | | | 
De ee ಜಾತಾ ವ ee ee eee E ee eS iT ea 
Table AD. Module AD Compiler Control Interphase Dumping 
aaa a m pee a ಸಾಸ ಜರ fe ee a ಸಾಮಾ ದಾರಾ ನಾರಾ 1 
| [Main Processing| 
| Statement or Operation Type | Routine | Routine Used | 
{Debugging aids. This routine contains a dump- | IEMAD | ZDRFAB, ZTXTAB, ZUPL | 
Jing progran which is invoked by use of the DUMP| | (all in AA), | 
| option - | | DUMP | 
Lo ti ನ ಇನ ಹನ ನಾವಾ ವಾ ಕಣಾ ಕೂ ವ ಮಾ ಕೊನ ಹೂ se ete eee Lo ee ವಾವ J 
Table AD1. Module AD Routine/Subroutine Directory 
ಧಾ ಜರವಾ SIPS, ಪಪೂ i ದಾರ್‌ ಜಾನ aa C MEE NUNC aaa “7 
| Routine/Subroutine | Function | 
}------------------ | { 
| DUMP |Converts contents of specified area of main storage to hexadecimal, | 


| [prints the result. | 
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Table AE. Module AE Compiler Control Clean-Up Phase 


E |Main Processing] 


|text and four dictionary, if running with the | | 
{44k size option | | 
| | | 
|Entry to the operating system: GETMAIN | | 


. | 
| Statement or Operation Type | Routine | Routine Called | 
Sas tpa oC — a! ಪ — am D A a V a v eS aum, am unum AD Guam auum UM» UIS ಆರರ ಮಾವಾ ಭಾಷ್‌ TS URP ಖಾಸ ಪಾಪ aua ಆನಾ ಸವನ m eio ಎರಾ ಆಧಾ ee unt ene Gum oe ee aw aoe + -——À au am a oe A eee amano amp cmm UND GER ED one ಆನಾ ee ae 
|Input and intermediate file control. Current |IEMAC | None 1 
jinput file is closed and IEMAC is deleted if | (Module AC) | | 
| present | | | 

| | | 
{Entry to the operating system: CLOSE(current | | | 
| input file), DELETE | | | 
---------—---------—--------------------—---- }---------------}-----------------------] 
[Opens SYSLIN and SYSPUNCH data sets if required|NOT4&8 | ZUERR (AA) | 
| | | | 
|Entry to the operating system: OPEN | | | 
nn rn rn nn rn ern ern nn fae nn en nn nn fn nn en ee | 
[Expands the number of blocks in storage to four| NOTDCK | None | 
| 

| 

| 

| 

J 


Tabie AE1. Module AE Routine/Subroutine Directory 


| Routine/Subroutine| Function | 
~~-------—------- "-—— —,————— d. 
| NOT4S |Opens SYSLIN and SYSPUNCH data sets as required. | 
| | 

| NOTDCK | Expands number of blocks in storage. | 
L Akne GAME uvm, A cuum CHE ಪಟು ಜನು ಜು ಆದಾರ ರಾವನ ಅರಿದು SUMUS ee Am ಪರ್‌ 4. CUm Ra ಅಷ vag ಅರ cipum amem ri cuum ಚಚ ವಾವ ಅಜಜ uie ಆನಾ MEER VE ಚಾ ಬಜ ಚಾ apum ಚಾ ಜಣ Mim ES MUS CHENG RUND ಅಪಾ ಚತ ಜಲ ee ee a VANUS SS ಜುಂ Se ಭೂಪಟ ಎವ ಕಮ್‌ ಎಐ Em pun Gm NN roe ಚಣ ರಾ ar uo ee EL ಪಜ ಚಾ ಚಚ ಭಾ oe ee ಜುಂ ee ee cune J 


Table AF. Module AF Compiler Control Sysgen Options 


|This module contains no executable instructions. It is | None | 
|generated at SYSGEN time and passes the default options E | 
land values to the compiler | | 


Table AG. Module AG Compiler Control Intermediate File Switching 


c M Ki rc ee ge UMEN KM MEDII CM ELE: ae ರಾ ರಾವಾ ವಾನ hy ae er DO 1 
| Function | Subroutines, | 
wa nn nnn nnn nn — — ——— —— — —— nnd 
|Switches SYSUT3 from an output file to an input file | None | 
| | | 
| Entries to the operating system: OPEN and CLOSE | | 
ಮಾ ಮನವ ಮವ ಜವ ತಾಜಾ hee —————— € 
Table AK. Module AK Compiler Control Closing Phase 
ee Pc qu ETE 1 
| Function | Subroutines | 
|» ಆ ಮಾ ಅವವ GU ಆವಾ END ಆನಾ ದನದ aum ರಾ ಆನಾ ಇವನಾ ವಾ ಅವಾ EE ED ED uam» ಆನಾ ಆಧಾ ಅನಾ 7220002230 ನಾರ ಆನಾ eee ಭಾ ಆವಾ ನಾ due ಜಾ ami ಜಾ ee GUUD ae ವಾರಾ a ಮನದಾ ಅವಾ ee ಮವನು pum ee ಎವಾ ರಾರಾ ಎವಾ ಆದಾ ವಧಾ m —————————————————————————-4 
[Closes files, frees scratch core and deletes unwanted | ZURC(AA) | 


| phases 
|If batch compiling, scans batch delimiter card for correct 
|syntax and updates completion code. 


|DELETE, and FREEMAIN I 


| EEE amt ರಾನಾ ame ome ಅಥವಾ ರಾರಾ ene AMAA ae ರಾನಾ ಆನಾ ಆಹಾ” UP ಆಬಾ ಆನಾ ಸಾಹಾ ee ಆವಾ ಜಾನಾ ನಾ ಇದಟ ವಾ ಬಾ ಚ SRE AS BRN PEE, PANES NS RN LN 


| 

l 

| | 

| | 

| | | 
|Entries to the operating system: TIME, CLOSE, FREEPOOL, | | 
r 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases 


Se a ದಾನಾ ಜಾವ ನಾನಾರ ee ee ee ee ae ಹರ 
| |Main Processing] Routine Called | 
| Statement or Operation Type | Routine | | 
ಹ a a ee e e e e e e R-.----——--—-------46------------------—--———- 
|Releases scratch storage allocated by 2UGC | ZURC | ZUERR, ABORT i 
| | | 

| Parameters passed: PAR1 -- a count of the | | l 
| number of entries to ZUGC to be released | | | 
| Entry to the operating system: FREEMAIN if | | | 
| storage being replaced is outside the guaran- | | | 
| teed 4K block | | | 
SSS Se re ಕತ ಘಟಕ ಜಾನಪದ 
|Inserts diagnostic message in the dictionary | ZUERR |ZDRFAB, ZDICRF, ZDICAB | 
| | 

| Parameters passed: PAR5 -- numeric parameter | | | 
| (if any); PAR6 -- message number; PAR7 -- add-| | | 
| ress of text (if any) or dictionary reference | | | 
| (if any); PAR8 -- length of text (if any) | | | 
| Entry to the operating system: None | | | 
a a ದ 
|Takes a dictionary reference and points at the |CONSLD | None | 
[relevant slot in the dictionary block control | | | 
[area (2510075) | | | 
| | | 

| Parameters passed: PAR1 -- dictionary | | | 
| reference | | | 
| Parameters returned: Address of slot in GRA | | | 
| Entry to the operating system: None | | | 
(——— M— —— À—  — —— 
{Takes a text reference and points at the | CONSLT I | 
[relevant slot in the text block control area | | | 
| (TSLOTS) | | | 
| | | | 
| Parameters passed: PAR1 -- text reference | | | 
| Parameters returned: Address of slot in GRA | | | 
| Entry to the operating system: None | | | 
TT hh — 
|Allocates space for a text block | TRYMRT |DFREE, TFREE, ZUPL, | 
| | | ABORT i | 
| Parameters passed: Relative track address of | | | 
| the block (if block is on disk) in RDTTR. | | | 
| Otherwise RDTTR is zero | | | 
| Parameters returned: Address of block in GRO | |. | 
| Entry to the operating system: GETMAIN(VC) if | | | 
| storage available. OPEN if no space left | | | 
| for text blocks | | | 
~-~-~--------------—--------------------------- hh 
{Allocates space for a dictionary block | TRYMRD |DFREE, TFREE, ZUPL, | 
| | | ABORT | 
| Parameters passed: Relative track address of | | 
| block (if block is on disk) in RDTTR. Other- | | 
| wise RDTTR is zero | | 
| Parameters returned: Address of block in GRO | | 
| Entry to the operating system: GETMAIN(VC) if | | 
| storage available. Open if no space left for | | 
| dictionary blocks | | 
a ee ee ಮಾ en han ಕಾಸಾ —— ಕಾಕಾ en nn à "€ d 


{Investigates the dictionary block control used | DFREE 
| (DSLOTS), to find which block can be written on| 
{to disk to make space for a different block in | 
|storage 


CONSLD, ZUERR, ABORT, 
WDREAD, WRTRD, WDWRIT 


| 
| Parameters passed: Relative track address of 
| block required in storage in RDTTR. RDTTR=0 
| if a block is being created 

| Parameters returned: Address of block in 

| storace in BLOKAD 


Entry to the operating system: None 


——MÓ ee m ಶಾಖಾ 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
4 
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Table AL/AN. Modules AL/AN Extended ನ cia Phases (cont'd) 


z 
| - [Main Processing| Routine Called | 
| Statement or Operation Type | Routine | | 


| -- ಭಾರ -—- -- -- + +--+ ef SS ್ಟೈ [ಾ,ೈೈ 
{Investigates the text block control area | TFREE |CONSLD, ZUERR, ABORT, 

| (TSLOTS), to find which block can be written |WDREAD, WRTRD, WDWRIT 
|onto disk to make space for a different block 
jin storage 


block required in storage in RDTTR. RDTTR=0 
if a block is being created 


| 
| 
| 
parameters passed: Relative track address | 
| 
Parameters returned: TFREE | 

| 


Entry to the operating system: None 


OF SES 


SE SES -—————-—————------------4 


| 
| 
| 
| 
| 
| 
|Create space in storage by writing on disk | WOWRIT | WRITEX 
| | | 
| Parameters passed: RDTTR=0, BLOKAD contains | | 
| address of block that can be written out | | 
| Parameters returned: BLOKAD contains address | | 
| of block in storage that is now available | | 
| Entry to the operating system: WRITE(BSAM), | | 
| CHECK, NONE | | 
be }---------—---- }-~~-----~-------------- 
{Writes a block onto disk and reads a second one|WRTRD |READX, WRITEX, ZUERR, | 
{into its place in storage | ABORT | 
| | | 
| Parameters passed: RDTTR contains relative | | | 
| track address of plock to be read. BLOKAD | | | 
| contains address of block to be written | | | 
| Parameters returned: NOTTR contains relative | | | 
| track address of block in storage | | | 
| Entry to the operating system: WRITE(BSAM), | | | 
| CHECK, NOTE i | | 
bot] 
|Reads a block from disk into space already | WOREAD | READX | 
Javailable in storage | | 
l | 
Parameters passed: RDTTR holds relative track | | | 
| address of block to be read. BLOKAD holds | | | 
| address cf space in storage | | | 
| Parameters returned: BLOKAD holds address of | | | 
| block in storage | A | | 
| Entry to the operating system: None | 
eg sp i aa nd a er rem pe ry ri it FS +--+ 
(Writes a block onto disk {WRITEX ZEND | 
| g 
Parameters passed: TENP4 holds relative track | | | 
| address of space on disk | | | 
| Entry to the operating system: XDAD(WI), WAIT | : | 
NS eS 
| Reads a block from disk | READX oe ZEND | 
Parameters passed: TEMP4 holds relative track | | | 
| address of block on disk | | | 
| Parameters returned: PAR1 -- address of input | | | 
| area | | | 
| Parameters returned: PAR2 -- record length | | | 
| Entry to the operat operating system: GET MOVE ey H | 
|Reads a record from SYSIN poem aa | 
| Parameters passed: PAR1 -- address of input | | | 
| area | | | 
| Parameters returned: PAR2 -- record length | | 
| Entry to the operating system: GFT MOVE ಜಗಳ | | | 
ಕೊ eS ಕಾರ ee aia ae LE C 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 

ಗಾ a a aa am aaa a MEE Me qmm Mem ee 1 
| |Main Processing| Routine Called | 
| Statement or Operation Type Routine 
ae eee ಘರಾ ಪಜ 
{Puts a record out to SYSPRINT. Paqination ZUPL 

| (paging action) is performed automatically 


| Parameters passed: PAR1 -- address of output 
| buffer. PAR3 -- address of output buffer 
| containing page heading (if any) 
| Entry to the operating system: PUT LOCATE 
| (CEAN) 

pom aan nnn nnn nn nnn nnn nn nnn nnn ದು penne nnn nnn ರಾಕಿ ಬದುದ 
|Finds a new text block. Optionally chains the |ZUTXTC |CONSLT, TRYMRT, ZUERR, 
|new block to the current block and changes the | | ABORT, BLKERR 

|status of the current block 


— — ——— ಸೂಪಾ — — ಜಾಣಾ ಎಣ — 
ಹ — — À ವ 


Parameters passed: PAR1 -- optionally, a 
reference to the current block. PAR2 -- a 


Status and chain indicator 

Parameters returned: PAR1 -- reference to new 
block; PAR2 -- absolute address of the 
beginning of block 

Entry to the operating system: None 


|Finds the next text block in the chain. | ZCHAIN |CONSLT, TRYMRT, BLKERR 
|Optionally, changes the status of the current 
| block 


ape ame — — — — ಪಾ —Á — 


| 

| 
Parameters passed: PAR1 -- a reference to tne | 
current block; PAR2 -- a status indicator | 
Parameters returned: PAR1 -- reference of the | 
next block in the chain.  PAR2 -- absolute | 
address of next block in chain | 
| 

+ 


Entry to the operating system: None 


-m Em a — —— — —— ನು ಮಾನಾ ಅಂಜ ನಾನಾ ನಾರ ಆನಾ ಧಾರಾ ಜಾ — ಲ — Ja ರಹಾ, — À— — ಸಹಾ ಸಾಮಾ ಆಸಾ: — 


geb aae ame amo ama cam aem cum 


[Changes the status of the referenced text block|ZALTER 


| 

l. | 

| Parameters passed: PAR1 -- a reference to the | 

| block. PAR2 + 3 -- required 'status' byte | 

| Entry to the operating system: None | 
Ere f= = 

| 

| 

| 

| 

| 

| 

| 

| 


{converts a text reference to an absolute CONSLT, TRYMRT, BLKERR 
jaddress and optionally, does not chance status 


[of the block 


Parameters passed: PAR1 -- reference to be 
‘converted and option indicator bit 
Parameters returned: PAR1 -- the absolute 
address 


| 

| 

| 

| 

| 

| 

| 
Entry to the operating system: None | | 
Sn a MM M rx c cC KM I MERCI DM ME CIN MEET 
|Converts an absolute address to a text | ZTXTRF |CONSLT, BLKERR, ZUERR, | 
| reference | |ABORT .— | 
| 

| 

| 

| 

| 

| 

| 


| 
Parameters passed: PARI -- a text reference to| 
the block containing the absolute address; | 
PAR2 -- the address to be converted | 
Parameters returned: PARI -- the required text] 


reference | 
Entry to the operating system: None | 


———— ÁÁ——— nnn nnn  —Q—— a! 


{Enters ೫೮೮೨೨5೫೩೮೮ "REFERENCED BLOCK NOT IN USE’ | BLKERR | ZUERR, ABORT | 
linto dictionary and then terminates compilation| | | 


| Entry to the operating system: None | I | 


fm ms ce eee ee gene ಅಹಾ ee 
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Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd) 


COOOL LS ES LD UI A IUS VID SS ಆವಾ CNS SS LE SE SN ಕಾರಾ ನಾ ನಾ IUD AUR ಆಜಾ ಅವಾ ಆಜು a UM ee ee oe ee ee ow ee ಆಹಾ ee an an ar P ಎವಾ ಆನಾ we oe ee GUD ee ಆಹಾ eee ಆಸಾ, 


. e m ಎ 1 
| |Main Processing| Routine Calles | 
| l , Statement or Operation Type ' | Routine | | 


OS SS 
| Supplies storage space for scratch purposes. | ZUGC DRE: ZUERR, ABORT 
{Allocation is made in 512 bytes at a time | 
| Parameters passed: PAR1 -- a count of the | 
| ‘number of 512 byte blocks required | 
| Parameters returned: PAR1 -- address of the | 
| allocated storage | 
| 


Entry to the operating system: None. | 


a 


| 
| 
| 
| 
| 
| 
| 
[Converts an absolute address to a dictionary | ZDABRF |CONSLD, ZUERR, ABORT, | 
| 
| 
| 
| 
| 
| 
| 
4 


ವವು 


| reference | BLKERR 
| Parameters | passed: PAR1 -- any reference to 
the block containing the absolute address; 
PAR2 -- the absolute address to be converted 
Parameters returned: PAR1 -- the required 
dictionary reference 


Entry to the operating system: None 


aqa cee ee eee ae amem 
— ee — ee aD we 


adm amn aane ame ies A nass ಶವ 


[Converts a dictionary reference to an absolute |ZDRFAB | CONSLD, TRYMRD, BLKERR 
l address | 
| Parameters passed: PAR1 Sha dictionary | 
| reference i l Ex | 
| Parameters returned: PAR1 -- the absolute [ 
| address > A 
| Entry to the operating system: None |. 
pee 
| Makes an unaligned dictionary entry and | | ZNALAB | ZDRFAB, ZDABRF, TRYMRD, 
[returns an absolute address | | 2೮202, ZUERR, ABORT, 

| CONSLD 


| 

| 

| | | 
1 Parameters passed: PARI mE address of entry to| | | 
| be made; PAR2 -- length of entry | | | 
| Parameters returned: PAR1 -- address of entry | | | 
| in dictionary. PARU -- some reference to the | | | 
| block | | | 
| | | 
4 


Entry to the operating system: None l | 


{Makes an aligned dictionary entry and returns  |ZDICAB .|ZDRFAB, ZDABRF, TRYMRD, 
Jan absolute address | |ZUPL, ZUERR, ABORT, 
| | | CONSLD 
Parameters passed: PAR1 -- address of entry to 
be made; PAR2 == length of entry 
in dictionary. DARE -- some reference to the 
block 


Entry to the operating system: None 


| 
| 
| 
| 
| 
| 
fo fh —4 
|Makes an unaligned dictionary entry and | ZNALRF |ZDRFAB, ZDABRF, TRYMRD, 
[returns dictionary reference | |ZUPL, ZUERR, ABORT, 
| | CONSLD 
Parameters passed: PAR1 -- address of entry to| 
be made; PAR2 -- length of entry | 
Parameters returned: PAR1 -- reference of | 
entry in dictionary. PAR4 -- absolute address| 


of the entry `- | 
Entry to the operating system: None | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
be ದವ EA NE NE ERARE ಭಕ REE Space ಗ. 2 222. 
| 
| 
| 
| 
| 
| 
| 
| 
4 


{Makes an aligned dictionary entry and returns a|ZDICRF | ZDRFAB, ZDABRF, TRYMRD, 
[dictionary reference l | |ZUPL, ZUERR, ABORT, 

| l | | CONSLD 

| Parameters passed: PAR1 -- address of entry to| 
| be rade; PAR2 -- length of entry 

| Parameters returned: PAR1 -- reference of 

| entry in dictionary. PAR4 -- absolute address| 
| of the entry I 
1 


Entry to the operating system: None ` | 
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Table AL1/AN1. Modules AL/AN Routine/Subroutine Directory 


48660 ep een as ae oe oS ee SEP ಣಾ ಅಭಿ ee oe Qo cm ಅಜ ಅಲ atn ದವಾ ರಾದಾ ನಾ AUD ಆನಾ ಆನಾ ಅ ಆನಾ ಲಾವ ಆನಾ ಆನಾ ದವಾ ಆವಾವ ಆನಾ ಇಬ UID ಆದಾ OO ಆದಾ ದನಾ OO ಆನಾ ಆನಾ ಜಾ GP ಕರು UD ED AID. ಆನಾ ಆರ ಇಡಾ ನಾ ಆನಾ ವಾ MD ಇವಾ ಇಹ ಇ ಆಹಾ ಜಾವಾ: ಆರಾ ಆಹಾ a wee 1 


[Routine/Subroutine | 


| TFREE 
i 


| 
| TRYMRD 
| 
| TRYMRT 
I 
| WOREAD 


| 
| WDWRIT 
| 


| 
| WRITEX 
| 
| WRTONL 


| 
| WRTRD 
| 


| 
| ZALTER 
| 
| ZCHAIN 
| 


| ZDABRF 


: 
E 


ZDICAB 


sus 8 8 8 
P313 | | | 


d 
5 


pP as a ee ನಾ ಸಾನ e ಭಾವನ 700000 up, aD MED GU ಮಾನವರ ಭಾಭಾ OD ee AUD GUN, ED ಅದಾ ಅವನಾ ED ಅರವಾ ಪಚ UM ಘೂ ಖೂ ED ee ಆನನ ಎವಾ am 
t3 
ಆ 
8 


Function 


{Finds text block which can be written on disk 
1೬೦ make space for a new block in storage. 


|Allocates space for a dictionary block. 
| 
|Allocates space for a text block. 


|Reads a block from disk into storage. 


[Creates space in storage by writing a block on 
|disk. 


| 
|Writes a block on disk. 


| 
|Writes on last block on disk. 


|Writes a block onto disk, reads a second one 
linto its place in storage. 


[Changes status of referenced text block. 


|Finds next text block in chain. 


| 
|Converts an absolute address to a dictionary 
| reference. 


{Converts a dictionary reference to an absolute 
| address. 


|Makes an aligned dictionary entry and returns 
jabsolute address. 


{Makes an aligned dictionary entry and returns 
|dictionary reference. 


[Makes unaligned dictionary entry and returns 
[dictionary reference. 


TENES unaligned dictionary entry and returns 
[absolute address. 

CNN text reference to an absolute address. 
{Converts absolute address to a text reference. 
[Inserts diagnostic message in dictionary. 
|Reads a record from SYSIN. 

[Supplies storage space for scratch purposes. 
nil ease scratch storage. 

I ots record out to SYSPRINT data set. 


| 
{obtains a new text block. 


oan ಲಾ ಜಾಲಾ ee ಮೊ we ಆದಾ ಆಹಾ ee UD ND ನು QUE ಬದ ಅದಾದ ಬಾಮ oe es ನಾ UID UID ಆನಾ ಆನಾ ಆನಾ ಆನಾ ನಾ AUD ಆನಾ ಆವಾ ಆನಾ ಇರಿದು ಬನಾನ ನನು ಅವಾ ನಾ MI. es a ಆಸಾ ಆಸಾ ಆಜಾ ದಾ a ಆದಾ ನಾವಾ AUD. ಆನಾ AUD ಆಹಾ ಅದಾ AND CUP ನಾ ಅಂದಾ ಆನಾ ಆವಾ ಆನಾ ಬಾವಾ ಆನಾ UD eee 
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> amu cee ano anm ame ಆರಾ aue ane onm ane cs cee ರಂ GD TUUS UPS ಅವನೇನೂ ಪಾನಾಂ eee ee D a dure ಆದಾನ ae ED ಸಾಹಾ ಪಾಂ ವರಾನ GUESS ತಾ ಬನಾನಾ Ge ae eee QUAM. ae eee eee oe ee ee ee aum ee ee ಚ್‌ 
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Table AM. Module AM Compiler Control Phase Marking 


EL 
| |Main Processing] 1 
| Function | Routine | Routines Used | 
[Marks all non-optional phases and  |IEMAM emen RLSCTL (both in AA) 
[all phases influenced by compiler | | | 
|invocation-time options | | | 
ನ ne pe a ee Lr ಪಾಹಿ ಹಡ: ತ 


e Table AT. Module AT Compiler Debugging Module 


(Umm mm um aa qmm dus dus con tem um dam ವಾ: (e ಅಹಾ ಇನಿಯಾ GED emis D ಬಾಮ ಹಾಚಾ NUM ನಾನಾ ಎರಾ ap ಆನಾ QUID ED CE ಹಾಹಾ GRO NUR ಜಾ HEP Gp uo um ED QUD GED ES UD aes ಆಸಾ ಆನಾ ನನಾ oe 1 


|Main processing] | 





| Statement or Operation Type | Routine | Routines Used | 
—À pe ———— Ó€— ಫಾರ್‌ — — Á—À p —Á——HÀ—MÀ— — €i «c 1 
[Reads in control cards and |INIT | CNTRL,NXTFLD,TROFFSET,ZUPL(AA), | 
[constructs control tables | | ZURD (AA) | 
|Entry to the operating system: None| | | 
NN 
|Entered each time a phase is loaded|LOAD | PATCLOAD, TRACLOAD , ATCALL, HEXOUT, | 
[so that replacing (REP) or | | JBPT 


|verifying may be done. Inserts { 
[start or end trace/flow markers | 
| (privileged operations) | 

| 


|Entry to the operating systems: None 


{Entered each time a phase is | TRACRELS 
|deleted and updates control tables | 


{Entry to the operating system: None| 


None 


{Entered from Interrupt Handler in | TRACEIT 
|module AA after privileged | 
loperation encountered (002 | 
jinterrupt) signifying trace/flow | 
|marker. Carries out initialization| 
|before starting or after ending | 

| 


| trace/flow 
{Entry to the operating system: None| 





|Analyzes each instruction to be | TRACE | CALL, FULLSUB, .FULL2, JBPT, FULLAD 
[traced. Executes the instruction | Í 
land prints a line containing: the | 
|instruction, its address, the | 
|resulting condition code, and the | 
|subsequent contents of registers | 
jand storage used by the | 
I 
[ 
l 


eee mmn ans a a a a eee amen a lup cec am m eee eee ಬಾವ ಆವಾ a e a came come 


[instruction. 
[Entry to the operating system: PUT 
|MODE (QSAM) 


[ ಷ್ಟ ಎಂ a ete a eee we emer ee a ee ae oe ene ಅಚ oe ee re as eee ew — m UD a ಇಯು ಬು ae E ತವಾ ಮಾ cs ae ನಮವ ವನ ಮಮ ವಾ ae ow ಘಾ ಮಮಾ ವಾ 9 DS 
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eTable AT1. Module AT Routine/Subroutine Directory 


SaaS ducunt Se eee a ಕರ ee ee ee es sudor ee ಸಾವ ende 1 
| Routine/Subroutine | Function | 
GE cum» uL EE ಆಗಾತ "MEN og ammo CUPUR “ಹುವಾ RU ಹಾಡ Viper ಇದರು CUP D SA — AS — ಮಾಮಾ A— i ಆನಾ ಜಾ ಪ್ರಚಾರ A A A ಚಾಸ್ಯ A ಆನಾ ಎವಾ ಆನಾ M ನಾ A a ಆನಾ ಭಾಭಾ UD ನಾ ಮನಾ VEND GEAR a CUND ee ಆವಾ ವಾ a a i eS ಆನಾ GD 17222122000 ಆದಾ eee ಮನಾ ಮನಾ eee eee ಆನಾ ಬಾ ದಮ eee ಆ 1 
| ATCALL [Calls the print routine and then clears the print line. | 

| | 
| CALL [Similar function to ATCALL but contained within TRACE routine. | 

| | 
| CNTRL |Carries out replacing (REP) and verifying in phases loaded before | 
| |AT. Inserts start trace markers in phases loaded before AT. | 
I | | 
| FULLAD |Determines address of storage to be altered by instruction currently| 
| {being traced. | 
| | | 
| FULLSUB {Translates hexadecimal to a character representation of hexadecimal. | 
| {Used in TRACE routine. | 
| | | 
| FULL2 |Analyzes instructions to be traced and moves information to the | 
| | ೧೫೩೧೬೭ line. | 
| | | 
| HEXOUT {Similar function to FULLSUB. Used in routine LOAD. | 
| | 
| INIT [Builds control fields using information from control cards in the | 
| | input. | 
| M _ . ] | 
| JBPT [Prints a line of trace information. | 
| | | 
| LOAD |Controls subroutines PATCLOAD and TRACLOAD. | 
| | 
| NXTFLD |Skips blank characters on input control cards. | 
| | | 
| PATCLOAD {carries out replacing (REP), if requested, after each phase is | 
| | loaded. | 
| | | 
| TRACE {Traces each instruction and prints trace information. | 

| | 
| TRACEIT |Describes whether TRACE/FLOW must start or end. | 

| | 
| TRACLOAD | Inserts start trace markers in phases after they have been loaded. | 
| | | 
| TRACRELS |Updates control tables when a phase is deleted. | 

| | 
| TROFFSET {Translates character representation of hexadecimal to hexadecimal. | 


De re wee ತಾತಾ a hn a nn en ne en mem I) 
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Chart 01. 
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Chart BC. 
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Phase BC Overall Logic Diagram 
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Chart BM. Phase BM Overall Logic Diagram 
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Table AS. Phase AS Resident Phase for Compile-time Processing 


ee ee ore d e S ಪಾ ccc EL MMC EC C ಪಚ ಮುಖ C Ld 1 

; [Main Processinq| | 
| Statement or Operation Type | Routine | Subroutines Used | 
---------------------------------—- d--------------- 4 ----------------------------------- 
{Initializes switches for | ADRP | None | 
|compile-time processor | | | 
-------------—----~--------------- }---------------}-----------------------------------+4 
{Loads phases for compile-time | ADRP |LOADX (AA) | 
| processor | | | 
~-----—--—---------——------------—}--------------- $-------~--------------------------- 1 
[Determines whether Phase BC should |ADRP | None | 
|be reloaded | | | 
ಗ ತಾ lc —€——— — EES SE J 
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Table AS1. 


Phase AS Routine/subroutine Directory 


ಕ ee ee, ನಾರಾ ep a EDIT eee ದಾದಾ ದಾರಾ ವಾರಾ ನಾನ್‌ ವಾರಾ ETE ಕಾಜಾರ್‌ Cee en ಭಕನ RET ee ee ee mmm 


|Routine/Subrout ine | 


ಹ MERE ಗೆ ಡದ ವೋ 


| ADRP 

| 

| BCKUP2 
| 
|CHBLK 


l 
| CLSBUF 
COMENT 


NDIVB 


m 


‘REVAL 


ETIVB 


o a 
zZ 
೧ 


| 


780757 


la H 
Z Z 
8 g 

| 


XTTXT 


o 2 


UTPTC 


RHDIC 


Qo ೫ 


TRING 


TOKSCN 


| UPNEWL 


| YAG2 


a a ಅಷ ce ee en wee he ee ee ee er ee ete ee er ee err ಣಾ ee ee ee pew om am a een ಆನಾ ಆಂವ nan EE ಆನಾ ಬನ an ಆಹಾ ಆಶಾ ಆಹಾ es ree ee ee ee ಆಹಾ ಆಂ ಆಹಾ es es ಆನಾ ಆರಾ ee ಆಜಾ: 


Function 


[Initializes switches for compile-time processor. 


[Backs up token pointer two places. 


[Changes 


| 
| Handles 


currently busy IVB block status and gets a new block 


calls to close and write out the buffer. Loads and bases 


{phase BJ if necessary. 


| 5೦೩7೨ the limits of a comment, transfers each character into the 
[output buffer. 


[Closes an IVB chain. 


[Releases a chain of IVBs containing a no longer needed value and 


| returns 


| Removes 


| 
| Updates 
| stream. 


l 
|Accepts 


chain to free list. 
an IVB from the free chain for use by the calling routine. 


TOKPTR to point to the next character in a particular input 


an EBCDIC identifier as input and outputs an index. The 


| index indicates the beginning of the HASH chain with which the 
[identifier is associated. 


|Determines whether Phase BC needs to be reloaded on return from 
[Phase BG. 


[Reads in an input record from the source data set or from included 


| text. 
[ 


[Reads physical records from the included data set; unblocks and 
[sends them back one logical record at a time. 


[Gets a new text block and sets up address slots. 


[Outputs 


a single character into one of the three output media: 


|IVB's, text blocks, or external records. 


[Searches the dictionary for the presence of a named item. 


|Scans the limits of a string constant, transfers each character to 


| output. 


|Examines text, character by character recognizing and returning each 


| logical 


unit of text (called a token).  Tokens include identifiers, 


|constants, operators, delimiters, etc. 


| 
| Updates 


temporary linecount slot. 


|Loads processor phases for the compile-time processor. 
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Table AV. Phase AV Macro Processing Initialization 


pui Ue ee ate ee tae oe ee GENE na md DAE E E I EMG IA en 1 
{Main Processing] | 

| Statement or Operation Type | Routine | Subroutines Used | 
}---------------~-------------------}---------------}-----—-----~-----------------------] 
|Initializes communication area for |INIT | None | 
|compile-time processing | | | 
bo }~-------—------ }~---~--~--------------------------- 1 
|Allocates push down stack from | INIT | None | 
{scratch storage | | | 
}--—------------------------------- }--------------- $----------------------------------- 1 
[Allocates translation tables | INIT | None | 
hd 
{Enters SUBSTR into dictionary | INIT | None | 
P a er ee ದಾ ಡಾ À€— € À— ವಾರಾ 4 
| ೮2೮೩೬೮5 dictionary entries and | INIT | None | 
|values for constants pool | | | 
ಸಿರಾ EES ಮಯಾ ವಿಮಾ cle SS p o——— — beastie eee oe ee ವರಾ ಜಪ ಖಾತಾ ಬವ J 


Table AV1. Phase AV Routine/Subroutine Directory 
ur Uca cu MEE UM PME ಕ ee ne CDL CC FM ers ee cC ಅತಾ et ವ್ಯ 
| Routine/Subroutine | Function | 
be 
[INIT | {Entry point to the initialization phase. This initializes the 
| communication region for compile-time processing. 


೫೫೫೦೪8 |Allocates the push down stack (to be used by Phases BC and BG) from 
[scratch storage. 


| 

| 

| 

| 

| WWOVLP |Sets up tables to translate external code to EBCDIC; tests the 
| | BCD, EBCDIC option. 

| 

| WWOBCD |Enters built-in function SUBSTR into dictionary. 

| 

| WWCHNBEG {creates dictionary entries and values for compile-time constant 
| | pool. 

| 

| WWMOVEIT |Moves Subroutine package into core for use by BC. 

| 

| INCLUDE | INCLUDE Processor 

| | 

|LABELS (BC |LABEL List Processor. 


| GOTO Subroutine |GOTO Statement Processor. 
jACT Package) |Active/Deactivate Processor. 


| | 
| ELSE |ELSE Clause Processor. 


L a meo am m € — € — a o ae — € — HÀ a  — a — —À À— — —— ಅಂ ಅ — Á—— ——— ——MÀÓ—— ———— ಸಾಜಾ — —— ————— — 
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Table BC. Phase BC Initial Scan and Translation 


CS ae C MC A us huc a ee ee ನಾರಾ C ey ಇ ಚು oe 1 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
beer 
{Recognizes statement type | PH1SCN | TOKEN, DELETE | 
Fae le Rt poe ಸಾಮಾ ಸಾಸರ್‌ ವ ಾಬ ಜಾ ಸರಾ ಸಾಕಿ ಸುಪಾ Hr CE RNC ಜಾಜಿ MES ONT PAA area oP ROPE ee NESSES 4 
[Scans until next % character | PH1SCN | FINDPC | 
| -----------------------—----------}-----—---------4 ----- ----------------------- 4 
{Processes PROCEDURE statement | PH1SCN | TOKEN, DELETE, IDSRCH, | 
| | | ADDSP (FREVAL, OUTPTC) | 
}-------------—-------------------- be ——- 4 
| Processes labels attached to | PH1SCN | IDSRCH | 
| statement | | | 
-------------------------—-------- 4--—----------- ——— ———— 4 
{Encodes statement into internal | PH1SCN |PARSE, TOKEN, IDSRCH, ADDSP | 
[text | | DELETE, CHECK | 
~---------------~-----~------------ }---------------}-----------------------------------{ 
jCleans up after INCLUDE in initial |PH1SCN | None | 
[scan | | | 
Re es ವಾ ಗತಾ a ಕಾತ್‌ 1 
| Begins statement identification | PHLSCN | None | 
| process EE | | | 
1 


Li... —— e aun co de em mdi ———————————————————————————————- 
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Table BCI. 


Phase BC Routine/Suproutine Directory 


[Routine/Subroutine} |^ Function 8 8 1 1111111111 1. | 
lADCONS = [obtains the dictionary reference of a constant, entering it into the| 
| [dictionary if necessary. 

aes |Adds a processor-created item to the dictionary. 

T |Adds a normal itein to the end of the appropriate hash chain and 


| 
|ADPROC (BF) 


| 
JASSIGN 


| 
| CHECK 
| 


I 
|DECLAR (BF) 


l 
| DÉLETE 
| 


| 
{DO (BE) 


| 
|DONE (RE) 


೯1೧೧೮ 


|returns the dictionary reference. 

|Processes PROCEDURE statement. 

|Processes assignment statements. 

[Checks back for undefined labels and identifiers not declared within 


|the block. 
| 


.JDeciare statement processor. 


| 
|Skips over bad text up to the end of a statement, field or 
{procedure. 


IDO statement processor. 


| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

|Checks stack for possible THEW's or ELSE's after statement is | 
| completed. | 
| | 
| Scans source text, character by character, searching for macro | 
|percent character. | 
| | 
|Obtains the dictionary reference of an identifier, entering it in | 
|the dictionary if necessary. | 
| | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


{iF statement processor. 


jChecks for single or multiple keywords. 


| 
|Parses and generates interpretive macro code for compile-time 
| expressions. 


|Provides special handling for end of included text. 


[Mein controlling routine for phase. 


RETURN |Processes RETURN statement for PROC. 

STB3 {Collects labels into label list and identifier statement typer on 
|first two tokens of statement. 

STMT (BE) {Diagnoses statement type and builds label list. 
| 

TOKEN jReturns significant tokens to PH1SCN and writes out diagnostics for 
|tokens in error. 

UPDLIN |Generetes an update linecount instruction. 

——— ———— ed 
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Note: See also BC Subroutine Package in Table AV1. 


Tabie BG. 


Phase BG Final Scan and 


Replacement 


rr LE E CADRE EC M ee oe quem Uu ee e me Temm. 1 
|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 

Demme }--------------- heme 1 
|Final sean for replacements | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
APA EEE eee a ರವಾ ee 1 
[Recognition of end of text | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 

~----~----------------------------- }---------------}-----------------------------------] 
|Recognition of an identifier | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
cise aaa REN or EE he 4 
|Recogniticn cf macro action | PH2SCN |OUTPUT, TOKSCN, SRHDIC | 

me bh nnn nnn nn nnn naa 
{Recognition of % character | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 

mm fanaa ann nn epe T ------e---------- 
{Recognition of other characters | PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
pm ನರನ ಲೂ 4 
|Terminates and cleans up INCLUDE |PH2SCN | OUTPUT, TOKSCN, SRHDIC | 
jhandling | | | 

-—--—-——-—-—-—-—-———-—--————-—------------- 4----—----------- 4---—-------—------------------------- 4 
[Re-establisnes scan at next higher |PH2SCN |OUTPUT, TOKSCN, SRHDIC | 
{level text | | | 

RS Pe eR ತ ಚಿಚನ ಸಾಪ ಒಪ a EE K SS 
[Performs replacement on activated |PE2SCN | OUTPUT, TOKSCN, SRHDIC | 
|identifiers | | | 
cit a ee Ce Saas Lem La ee e LL ole ae J 
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Table BG1. 


Phase BG  Routine/subroutine Directory 
ನ್‌ ರಾ ಕಾರಾ Re dcc Kx catu DGM MM MM E CE DI M DM CMM CDM C ಕಾಚ ಪಳ CM a CER 


| kKoutine/Subroutine | 


Function | 
[CLOUT (BI) [Closes output buffer, and writes out record on SYSUT3. | 
eons |Handles conversions between the three data types used in the | 
| |compile-time processor . | 
ಹಡ Cone INCLUDE text handling and frees text blocks containing | 
| |included text. | 
SROs isis scan at next higher level text. 
ES oe ee and processes end of text condition. 
IA TOES ವಾಸನ ಈ and processes identifier in text. | 
T mm and processes macro action character. i 
೩೦೫೫೫ ತ character and outputs it. | 
Babel | Handles replacement operation for text identifiers. 
ee | Recognizes % character and recalls Phase BC if appropriate. | 
m |Bandles built-in functions. 
M sobre |Picks up a two-byte dictionary reference from scrubbed text, | 
i |performs error checking, resolves indirect references, and returns | 
| | both relative and absolute address. | 
acon | INCLUDE control routine. Opens DCB, finds member, sets up buffer, 
| |and initiates look-ahead read. | 
Pree (Bi) |Interprets the macro code generated by the Phase I scan. | 
ಜೆ ies the output of tokens. 
Enoch (icai text blocks. | 
me oo the top temporary off the Phase II stack. | 
eer (BI) {Special entry point to interpreter for invocation of procedures 
| | found in source program text. | 
— |Pushes next available temporary onto the Phase II stack. | 
[PUNCH (BJ) rupe down output record, in source code, on MACDCK option. | 
sene |Synchronizes linecount, closing buffer if necessary. | 
Legi |Scans for procedure reference argument list left-parenthesis. | 
ಪ (BI) |Performs identifier assignments for INTPRT. | 
| ZACONP (BI) {Performs all logical comparison operations for INTRPT. 
೬೭ ೪0 (BI) |Performs string concatenations for INTPRT. | 
ಜ್‌ (BI) ಅಜಾತ Stack items to required type by 'RETURNS' attribute. | 
ಜಟ! (BI) {Performs all logical operations for INTPRT. 
[ARUSH (BI) (aia stack maintenance for INTPRT. 
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Table 80%. Phase BG Routine/subroutine Directory (cont'd) 


(SS ere» —— ಸಜಾ — ಆಹಾಹಾ: ce ವಾ re ಸಾ ಸ ee ae ee ee ee ce ee ee ee ee ee ಆದಾ ME ee re ee AED re ee ee re we we we we we UD ಮನಾ we re ee we we ನಾರಾ en ee ee ಹಾಟ: 


| Routine/Subroutine| Function 

|ZARITH (BI) [Performs all arithmetic operations for INTPRT. ್ತೊ್ಲ್ಳ್ಲ್ಳೊ್ಳೊೌೊಆೌ್ಪಂ ಯೊ 
ಡಿ (BI) eem transfers from included text to including text. 

ian (BI) | Performs all transfer operations for INTPRT. 

[25೮೫5 (85) [3337೩೫ function SUBSTR. 
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Table BM. Phase BM Diagnostic Message Determination ani Printing 
po QOIS eet Oe Orca CIEN uU qoe em porcum mp ET mec ae ಪಾವ ನ 1 
f {Main Processing| I 
| Statement or Operation Type | Routine | Subroutines Used | 
——— }---------------}-----—----------------------------4 
|betermines whether error messages |XA | None | 
lare to be printed | | | 
-----------------------------------}--------------- }---~-------------------------------| 
|Scans error message text skeletons |XA8 |XA50, XA70, XA90, XA110, ZUPL | 
| ೩೧೫ prints them out. | | | 
aC —————MÓ ಎವಾ“ 3 Sea an ಹಾಸಯ ಸವನ ಎವ cdd ene J 

Table BM1. Phase BM Routine/Subroutine Directory 

ರತ ಈ ಜಾ ಕಾಕಾನ ಜಾದವ್‌ ವರಾರ್‌ DIC CE LC DC LCD ಕ M MINE UD EA 
| Routine/ Subroutine | Function | 
}---------=-------- 4} -------------------------------------------------------------------- 1 
| xà {Determines whether error messages are to be printed. | 
| 4 | 
| XA0 | Sets severity code. | 
l | 
| XA01 |Establishes which message types to suppress. | 
| | 
1271 [Counts number of error chains to be processed. | 
| | | 
| XA2 {Puts out messages if there are no diagnostics. | 
| | | 
| XA4 {Prints out “COMPILER DIAGNOSTIC MESSAGES". | 
| | | 
| XA7 {First scan of message chains. | 
| | 
| XA8 [Scans error message text skeletons and prints them. | 
| | 
|XA9 (BN) |Scans to head of next non-empty chain. | 
| | | 
| XA12A |Selects and prints header for messages of given severity. | 
| | | | 
12230 (BN) |Gets next entry in message chain. | 
| i | 
|XA32 (BN) |Puilds up first part of message in buffer. | 
| | 
|XA35 (BN) |Accesses message skeleton. | 
| | | 
| XALO (BN) | Puts out completed message. | 
| | | 
[XA50 (BN) | Moves message text to print buffer. | 
| | 
|XA70 (BN) {Converts binary statement number to character representation, and | 
| [moves it to print buffer. | 
| | | 
|XA90 (BN) [Converts binary numeric value to character representation and moves | 
| lit to print buffer. | 
| | | 
|XA110 (BN) |Moves identifier from dictionary entry to the print area. | 
| | 
| ZUPL |Prints a line on SYSPRINT data set. | 
J 


Cs a ee we ee ಲಾ ee 
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do ee on —À—— ಆಹಾ ತಾಚಾ ಅ ಆಹಾ MÀ M———— 


Table BW. Phase BW Clean-up Phase 


| communications region cells to the 


[ceo M UAE re qo rece Nomcn TIME EIE ರ್‌ ಶನ 1 
| | Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
~--~----------------=-------------- FN 
{Resets all tables and | IEMBW | None 
| 
| 


|value required by the compiler | 
| proper | 


———À— —— —À ಚಾಚಾ re À— À we mmm ಕಾಕಾ À—À—Ó— —— —— en — —À ——— ——— — — 
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| 
| 
| 
| 
J 


Chart 02. Read-In Logical Phase Flowchart 
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Chart BX. Phase 
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BX Overall Logic Diagram 
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RECCRD 
AHEAD AND *--- 
TAC * 


SET * 
APPROPRIATE ove 


BAS e. 
E3 +, kortt EYL SSS vesssss 
. *. + * 
* IN *. YES * 
COMMENT — .*--------»* IGNORE * 
*.OR STRING.* * 
*. .* * * 
*, .* $995953*552992495955* 
| ೫೦ 
.*. BA11 
F3 *. Shee (ದ್ಧಿ ತಶಿ ತಿ ತತ SY 
"OPERATOR ^*. YES : BYACE 
.* 4 
*. KEYWORD  .*--------»* OPERATOR * 
*, s SYMBOL * 
ತ ಹ * * 
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.*. ಆತೆ 
63" "3. Gu' `s, 
. .* $. 
*. YES -* FOLLOWED '*. Y 
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joo -— ee — ಆಹಾಹಾ 
.*. .*. 
H3' "*. Hu “8, 
"+. YES .*' FOLLOWED '*. 
ಗ COMMA ಕರಡ ---»* YA ಸ 
| *. .* *. PERIOD .* 
*. .* A .* 
ತ್ಮ .* a, .# 
ee". * NO * YES 
A2 * | 
* 
sees 
.*. 
[ANE ಭಿ ತಕಕ ತಿ SESS ಟಿಟಿ ಶಿ 
* * .* *. 
* * .* FOLLOWED '*. 
* IGNORE * *. g 
* * *. DIGIT .* 
* * *. .* 
*$$*5*5*5$$6$$9$9$$9$5* $., .* 
*' YES 
ಚತತ 
* * 
* A2 * 
* * $*9*39Kü*92992**2$95 
**99*$ * * 
+ * 
* IGNORE $ 
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| REPLACE 
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Chart CI. 


NOTE: 
CONTRO IS PASSED ಊರ FROM PHASE AA IF 
RSTART 48-CHARACTE COMPILE-TIME PROCESSOR 
Basle ves ette 15 NOT ACTER SET 
: MAIN SCAN : 
* OF TEXT bd 
* * 
* pS 
**999992599590098 
eee 
* * 
* B1 +--> 
* /-""u———A—————————————— ಎ 
tott 


.*. PLST 
$464 ತಿನ) ತಿ ತಿಳಿ 0049008 


.* TEST '*. 
.FOR LABEL OR*. YES 


*. PREFIX .*------2--»5* OPTIONS * 
*, OPTIONS, .* M DICTIONARY Pe 
ಕ “ಸಿ *9559995999999€699 

"+ 


PS 


*. 
PROC, ENTRY, xo $4949C29999949999 


Test" Y ಅವರೆ R EN eens 
LN LOCK *. YES K AND/O * * 
*. FOR, ಲರ x ಸ ದ --»* LEVEL COUNT #---->* E2 * 
* -SENTENENT * * BY * * * 
* sent 
^s. $$94454994999*945 
E “No 
.*. .*. EH 
STD DL *. D2 +. ED geeesD3e 
.* *, *. DECREASE 
.* TEST *, YES .* TEST *. YES : BLOCK AND/OR 
*. FOR oS, FOR meme LEVEL COUN 
+, KEYWORD .* +. ‘END' .* * TRANSFE 
+. .* *. . *TO O 
ತಿ, .* *. Je $$6t52$$ 
* NO * NO 
ಕತಿ 
* * 
* E2 *-5 
sete 
ASSIGN .*. STAT2 
E1 5 $$12929Ep26999494495 
.* TEST *. i * * ttet 
**FOR NULL OR*. YES * TRANSFER * * * 
+. ASSIGNMENT ನಾಳ STATEMENT TO *---->* B1 * 
*.STATEMENT.* OUTPUT TEXT * ^ * * 
$, .* * ಹ 
ಕಿ .* $*9$5$5$929$49$$249 
* NO 
BADSTI 
$$5*5s9F1t$59409295* 
* * 


* KIP * 
--* TO NEXT  * 
| * SEMI-COLON $ 
$$*6099$9*$$$$9$$*$95$49*9 

* 
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Phase CI Overall Logic Diagram 


edid 
* 
* 


PERT END" * 


UTPUT TEXT * 


$$99$5$$** 


ಆಕೆ 


.* TEST  *. 
.* IF LEVEL ಕಾ 


*$e-------»*. COUNT IS .* 
* E * 


. . 


.* END + 
*. OF INPUT : 
* * 


**99*Fljt6ét*9*t*tt5** 
* 
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DELETE THE * 
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Chart CL. Phase CL Overall Logic Diagram 
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Chart CO. 


Phase CO Overall Logic Diagram 
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Chart 
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CS. Phase CS Overall Logic Diagram 
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Chart 
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CV. 


Phase CV Overall Logic Diagram 
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Table BX. Phase BX 48-Character Set Preprocessor 
Pee eve e TIE UU ee pe eee 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
———À—— — — nnn — M—— M — 
|Translates keyword table to | BAOO | None | 
linternal code and initializes | . | | 
bo eS he —- 1 
|Reads a record | BA1 |ZURD (AA) | 
————— —— ann nnn  — — —————À— —— 4 
|Scans text | BA1A | None | 


—————Ó—————————— 


{Handles operators and keywords | BA5 | None | 


|Replaces operator keywords | BA11 | None | 
}-------------—----—---—----------}--—----------} ---------- —--------------------—-4 
|Replaces comma-dot by semi-colon | BA20 | None | 
jwhere applicable | | | 
hl 
|Deals with quote marks | BA25 | None | 
———ÓÁ—M— — —— — C ———— —XX 
|Maintains parenthesis level count  |BA30 | None | 


}---------------------------------—} --—------------} OD —------------------ 4 
|Replaces period-period by colon | BAGO | None | 
bo —— fo $--------------------------------—- 4 
{Processes a slash |BA50 | None | 
— ——— — — — —— — —  — nnn nnn 
[Reads one record ahead in case of |BA70 | None | 
| need | | | 
—€—————— nnn nnn nap ——— ——— 
{Restores the situation when a read |BA80 | None | 
{ahead has taken place | | | 
|Puts out converted text and | BA90 | ZUBW | 
joriginal text onto backing store | | | 
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Table CA. Module CA Read-In Common Block 1 


ee ee C m NES ee mee ee ಬಾಬಾರ ಮಾವ 
| Function | Subroutines | 
LON fee Oa he ee ee TE ge cR UE ee d 
| Provides subroutines common to all five |ACONST, DECINT, EXP, EXPAND, EXPLST, IDENT, | 
|passes of the read-in phase TUVCHAR, OPTOR, SCONST, SINGLE, SQUID | 


Table CA1. Module CA Routine/Subroutine Directory 


[Routine/subroutinl | Function | 
hour 7 "dale Gor a «idcidesio cusam; °° 4 
|DECINT checks decimal integer. | 
T ಸಜಾ expressions. | 
| EXPAND |Expands iterations of string constants and picture characters. 
| EXPLST [Checks for a list of expressions separated by commas but enclosed isl 
| | parentheses. | 
| IDENT free for a valid identifier. | | 
| MVCHAR TOM text from one address to another. 
| OPTOR {Checks for an operator and replaces the two-byte operators by | 
| : |one-byte codes. | 
| SCONST oe for a valid string constant. l 
| SINGLE TOP a single expression in parentheses. 
150020 [checks for a valid subscripted and qualified identifier. | 
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Table CC. Module CC Read-In Common Block 2 


rea ae cee a ie fee eh ee ee ae a ee ಪಕ eee ee ಪೂ ಕಹಾ“ 
| Function | Subroutines | 
rn rn rr rn rn 4-------—-—-—-—--—-——-—--------------------—---—-4 
|Provides subroutines common to all five | CHAR, CHECK, KEYWD, MESAGE, NONEX, | 
| passes of the read-in phase |NULINS, OPTEST, PICT, PREC, SOFLOW | 


eR en | 


Table CC1. Module CC Routine/Subroutine Directory 


| Routine/Subroutine | Function | 
ESSENSE o ರಾ ಹ AS REE SSS ELBE SNS ESE NSE 4 
| CHAR |Diagnoses the CHARACTER and BIT data attributes. | 
| | 
| CHECK [Tests the top entry in the stack. | 
l | 
| KEYWD [Identifies keywords and hands back the replacement character to the | 
| | caller. | 
| | 
| MESAGE [Provides a diagnostic message. | 
| 
| NONEX |Checks stack for non-executable statements. | 
d | 
| NULINS |Inserts null statement in output text. | 
| 
| ೦೫7೫57 |Tests the output string and moves text to the output. | 
| | 
| PICT {Diagnoses a picture. It uses a TRT table set up for the purpose. | 
| 
| PREC {Diagnoses the precision, and the attributes and format items which | 
| [use it. | 
| 
| SOFLOW {Bumps stack pointer and checks for stack overflow. | 
Le ವವ NES 
Table CE. Modules CE, CK, CN, and CR Read-In Keyword Block 
Sa CC re ee ee C DE 1 
| Function | Subroutines | 
hd 
| Provides tables of keywords in internal | None | 
|code, together with replacement code. | | 
| ೫೦ functional code exists in these modules. | | 
|IRefer to Appendix B for details of keyword | | 
|tables. | | 
( uam ae ದನು ರಾ CED GEND GUN ಹಾರ್‌ Gum PD — A — — SS SS TS ES ಹಾವ UND m mo EGET MC UN prec — (XX mí ವಾತ 
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Table CI. Phase CI Read-In First Pass 


a a eg eee uu xbv DCUM C NIE ne ಕಕ ಕತಾ 1 
[main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
bo -----—---—--------------------—4 
|statements, and analyzes some in |ELSE, BUMP, END, EOP, ERROR, IF, 


|detail 


| 
| ೦೫, POPLST, PROC, READ, SIGRVT, | 
| 
| 


| STAT2, STRING, plus those 


4 
[Controls main scan, identifies | RSTART | ASSIGN, BADST1, BEGIN, DO, 
| 
| 
| [3 
| | subroutines contained in modules CA| 


| | [and cc | 
————— Ses eae ee ee a ee ae ee eee eee eed 
Table CI1. Phase CI Routine/Subroutine Directory 
uM a ಮಾಮಾ 1 
| Routine/Subroutine| Function | 
AOA 
|ASSIGN (CG) |Diagnoses an assignment statement. | 
| 
|BADST1 [Recovers from failure to recognize a statement type; skips to next | 
| | semi-colon. | 
| | | 
|BEGIN (CG) |Checks the BEGIN statement and makes an entry in the first pass | 
| | stack. | 
| | 
| BUMP [Advances the input Data Pointer (DP), skips blanks, if any, forcing | 
| |source text to be read into storage as necessary. | 
| | | 
10೦ (co) [Checks the DO statements and makes an entry in the first pass stack. | 
| | | 
|ELSE (CG) |Unstacks an IF compound statement. | 
| | 
{END (CG) |Processes three different types of END statements; PROCEDURE-BEGIN; | 
| iDO; iterative DO. I 
| | | 
{ENTRY |Processes ENTRY statement. | 
| | | 
| EOP |Processes end-of-program marker, and returns to compiler control in | 
| | ೦೫೮೮೫ to load next pass. | 
| | | 
[ERROR (CG) |Handles false starts on possible statements. | 
| | 
{IF (CG) | 5೦೩೫೨೮ the IF statement and makes entry in first pass stack. | 
| | 
{ON (CG) |Diagnoses the ON statement and makes entry in first pass stack. | 
| l | 
| POPLST {Removes prefix options from the text and places them in the | 
| | dictionary. | 
| - | 
| PROC [Scans the PROCEDURE and ENTRY statement and makes an entry in the | 
| |first pass stack. 
{ 
| READ [Reads source text into storage, translating it into internal code, | 
| |except for character strings; removes comments; prints source | 
| |listing and prefix options. I 
l ; 
| RSTART [Controls the first pass scan. Enters statement labels into the . | 
| | dictionary. i 
| | 
|SIGRVT (CG) |» J |Scans SIGNAL and REVERT statements. 
| l l 
|STAT2 (CG) |Handles all other statements. | 
l 
| STID |Statement identifier routine. 
\ | 
[STRING (CG) [Scans character strings. l 
l SE ಅರಾ ಲವು ay SE E ಜ್‌ ED EEE ಪರಯಲ ಇಕಾ AES ಬಾಮ ls ca ae mem nas ಭಾಷಾ ಭೂ ಹಾವ 2 — sums US apum dE UNE CREE cus ee ee ee eee oe eee — (ಹಾಹಾ ae ಆಹಾಹಾ Ow ee AA a ee es OOS SS Se = ee cub ee ee a oe oe ಬಾ 


Table CL. 


| 
| Statement or Operation Type | 


Phase CL Read-In Second Pass 


CC = MD ae eee 


Main Processing| 


wan en — ees a A M ar ಆರಾ. — —— Á Á—— á— À—— —ÀÀ 


Routine | Subroutines Used | 
{Scans for statements handled in |SCNA | BUMP, DELAY, DSPLAY, DO, FREE, | 
{this pass, analyzing them in | | GOTO, ITDO, LABEL, PROC, RETURN, | 
[detail. Skips over other statements | |TRTSC, plus those subroutines | 
| | | contained in modules CA and cc | 
ಸಾಸ ÓÁÁ—— ———— Le ಡಾ ಮಾಡ J 


Table CLi. 


Phase CL Routine/Subroutine Directory 


| Routine/Subroutine | 


bh ——— 4 


| Increments the input Data Pointer (DP), skipping over blanks, | 


| BUMP 
| 


Ir 
ಹಳು 
[no 
dp 


| 
| FREE 


eee 
fon 
ee 
ತಿ 


| 
|PROC (CM) 
| 


| 

| RETURN 
| 

| SCNA 


| 
| TRTSC 


ಶೈವ ಮಾವಾ qui mins ad ಹಾ EE eee OR ae ಸಾವ ee ವಾನ om am Se ಮಾರಿನ em a ಸಿಕ ctio ADD a am ee Gn ane res ಮನು Eres ಅಂ eee eee — dum ಬಾವಾ ee a ಅಮಾ ಆವಾ APUD ee VD ಖಾಸ ಘಾ ಆನೂ er ae ಪಾಟ ಖಾ 


| obtaining 


| Processes 


| Processes 


| Processes 


| Processes 
[CS, or CV 
—— 
ಮಾಜಾ 
pec 
ಹ್‌ 


{Handles OPTIONS attribute on PROCEDURE or ENTRY statements. 


| diagnosis 
| 


| Processes 


Function 


a new text block if necessary. 
DELAY statements. 

DISPLAY statements. 

DO statements. 


end-of-program marker, and releases control 
(CO and CS are optional phases). 


FREE statements. 
GOTO statements. 
iterative DO statements. 


LABEL attributes. 


[Analyzes PROCEDURE attributes and options, and completes the 


೦೯ PROCEDURE and ENTRY statements. 


RETURN statements. 


[Main controlling routine of this pass. 


|Skips over all other statements. 


to phase CO or 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
ತ 
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Table CO. Phase CO Read-In Third Pass 


Cy eme Ie uU p I m pee E CURE MT Em 
Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ann ta a en a SE ++ 
{Scans for DECLARE, CALL, and | SCAN2 | ATTLST, BUMP, CALLOP, DECL, DEFIND,| 
{ALLOCATE statements. Analyzes | |DIMS, ENTRY, ENVMNT, EOP, | 
|syntax of attributes by calling | [GENRIC, LABEL, LIKE, USES, IVLIST, | 
{appropriate subroutines | |and those subroutines contained in | 
| | {modules CA and CC 
rum KY ee ee oe ecc TRE ENT 


Table CO1. Phase CO Routine/Subroutine Directory 


|Routine/Subroutine| Function | 
ರಾನ್‌ | 
| BDCL ee DECLARE or ALLOCATE statement. | 
| BUMP ಜ್‌ Data Pointer (DP), obtaining new input block if necessary. 
ಆ [ಶಿ ಗಸ CALL statements and options. 
|DECL . es the DECLARE and ALLOCATE statements. 

SERINE Ius the DEFINED attribute. 

me ಬೂ the dimension specifications. 

| ENTRY |Checks the ENTRY attribute. 

JENVMNT (CP) |Removes environment information from the text and inserts it into 


{the dictionary. 
| 


| 

| 

| 

l 

| 

| 

| 

| 

I 

I 

| 

| | 
| FOP {Processes the end-of-program marker, and releases control. | 
| | | 
| GENRIC | Processes the GENERIC attribute. . l | 
| | | 
| IVLIST (CF) | Processes the INITIAL attribute. | 
| | | 
|LABEL (CP) {Analyzes LABEL attribute. | 
| | 
| LIKE | Processes the LIKE attribute. | 
| | | 
{PSGUID (CP) {Checks for a qualified subscripted identifier in parenthesis. . | 
| I | 
| REFER (CP) {Checks the REFER attribute. | 
| | | 
| SCAN2 [Scans for DECLARE, CALL, or ALLOCATE statements, moves others to the| 
\ | output string unaltered. | 
| | | 
| SCANT [Moves text to semicolon without alteration. | 
| | 
{USES ನ the now obsolete USES and SETS attributes from text. | 
ಓಟು ಯಯಾ LT ನ ಮಮ ಮ eter area ಪೂ ಸವಾ ಸಾಮ ವಾ ವನ T 
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Table CS. Phase CS Read-In Fourth Pass 


rr ne ಬ ಕಾರ ರಾವಾ equum mere ಸಕಾಕಾರ ge e ex QS 1l 

1೫೩೩7೧ Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ವಾವ UR E TESORO. a RN 7 CSN SS 
{Controls main scan and identifies  |SCNA [es FORMAT, GET, LIST, OPEN, | 
{1/0 statements for further analysis| | READ, TRTSC, plus those subroutines| 
| | | contained in modules CA an CC | 
-— —— — —————— — Ge ಜನಾನ loe eu ವ YC E EE ESSN a T eS ee J 


Table CS1. Phase CS routine/Subroutine Directory 


|DELETE. This routine also checks for permissible combinations of 
|these statements. 


poem qe e cm UT ನಾನಾನಾ ವನ್‌ ಅವಾ ದಾನ್‌ ರಾನಾ ದಾಸಾ ad E 1 
| Rout ine/Subroutine | Function | 
bo 1 
| | | 
| EOP |Processes end-of-program marker and releases control. | 
| | 

| FORMAT (CT) | Processes the FORMAT statement and format lists. | 
| | | 
|GET (CT) | Processes GET and PUT statements. | 
| | 

| LIST | Processes data lists. | 
| | 

JOPEN (CT) {Diagnoses OPEN and CLOSE statements. | 
| | | 
READ |Checks the syntax of RECORD I/O statements READ, WRITE, REWRITE, and| 
| 

| 

| 

| 

| 

| 

| 


| 
| 
l 
| 
| SCRA |Main scan of this pass. 
l 
[ 


TRTSC |Skips over all statements other than I/O, moving them to the output 
|text. 
Capea ee ae ದಿ E ಮಹದ E EE ———— ಸಾದಾ J 
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Table CV. Phase CV Read-In Fifth Pass 


Ge a aa a aR UR ಪೂ ಚಚ Op Pu mg ccce aaa ta a me 1 
| | |Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
et 
|Identifies statements for which it |SCNA | CALLIN, CHAIN, DECL3, DO3, END3, | 
| 7051. build chains | | ENTRY3, EOP, POA1, PROC3, 7೫750, | 


| | |and those subroutines contained in | 
| | | modules CA and cC. | 


| ——————— —— —Á————— ——Á———— — — M ——— ——— ಸಾತ 


Table CV1. Phase CV Routine/Subroutine Directory 


4 —— m Se ee HD ND Gee ae ee eee -——— €] am —— ee ee a ew ow oe re ಆವಾ Gm ee wee ವಾಚಾ D ಜಾನಾ ಆಚ UD ವಾ m ಅವಾ umma m ದಾ ಪಾವಾ ನಮಾ eut b ಥಾಪಾ io ಸವಾ m ಆವಾ Sin m t m m t ನಾ | 


|Routine/Subroutine| Function | 
[CALLIN (CW [Makes up the CALL chains. ಯ — 
| CHAIN (roie chains. | 
| CHECKON check the fifth pass stack for ON entry, in order to insert 
| | PROC-END statements round the ON unit. | 
ಜಟ ee the DECLARE statement to the appropriate PROC or BEGIN | 
l | statement. | 
1003 tases a stack entry for DO block. | 
ENDS chocs the fifth pass stack. 
, ERTRNS bises an entry in the ENTRY chain. | 
m (CW) Proceset end-of-program marker, and releases control. 
|ILABSN (cw) |Creates pseudo-assignment statements for initial labels. 
ont |Analyzes prefix options in greater detail. | 
ಜೆ ೮೫೫3೦3 check lists. | 
inde {Makes an entry in the PROCEDURE-BEGIN chain. 
TM |Main controllinc routine of the pass. | 
T |Extracts statement number for label entry. | 
nae mec over statements not required for analysis in this phase. | 
ere ees NESE l 
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* CHAIN po Re Torr Um RN ಇವವ ಜಾತ. ETE EAEE AE lessee 
* * 
* * 
$99999999999090999 
YES 
.*. *, Fx0120 of, 
22 +, D3 *. $*$9»Du**59999999 D5 *. 
.* +, : +. * * .* *. 
.* END +. NO ANY *. NO *SCAN AUTOMATIC * ಆತೆ END +, 
*; eT * PARAMETERS D*-------- »* CHAIN ತಎತ >.: OF * 
*. CHAIN .* s * ^ * $. CHAIN .* 
b., .* +. ated * * . . 
೪. .* cue SOSH HEHE ಅತಿ 999599 $4. .9 
* YES * YES ^ * NO 
#46 
* ತೆ 
+ E2 #-> | 
* ಥೆ SSE 
eens 
FX0170 FX010 .9. 
SSNS SSS ie ೫3484000984 ES ^ "*. 
» * * .* NO *. 
*SCAN CONTROLLED* * YES .* BCD, ON +. 
* CHAIN * * PARAMETERS toons manne; CONDITION .* 
: bd $ A sENTRY Yii 
POSSE SORE REOTEDE ಜ್‌ K : 
ey o 
FX0250 4, py FX0010 . 
Lee RE *., P +.) sesserueteeceeeeo ರು ಟೌ 
* ಆ . 
* YES .* END OF *. NO . . sALLocaTrON” *. NO ಈ * ಹಿ 
-->$ SCAN TEXT #<--------8; CHAIN P ವವರು *---e----»59 SORT ENTRY  * -----9 SORT ENTRY  * 
: 5e RE +. PARAMETER. * : : pl 
PEE PTS "ಮ oe e, a $59999595099959999 YS. 
* 
ees | ತ 
* kd > s 
* G2 *-- -»* E2 * 
* * * * 
ತಳಕಕ ನ 
.*. FXPRNT FXBCD 
G1 +, S *éesg2etesee tees $$2G35999299 99995 
.* +, 
.* END OF *. YES * PRINT BCD * 
$. TEXT . e Eee -----»5SCAN SORT CHAINS---—----». AND DCL NO. 
4, .* (IF ANY) * 
*, .* TIT 
*. 4 ಗ $959999999995949 . * 
* NO * G2 + 
* + 
*eo** 
| ; 
| NO 
.*. .*. +, ತ. 
Hl' ‘e. ಶಾ ರ ರ” ಜತಿ '*. ny ೪ HS" '*, 
ಆತೆ ತ ADD STATEMENT * * *. .* *. .* +. 
NO .* +. YES NUMBER TO CHAINS 3 ATTR *. NO .* XREF *, NO -* END OF +, 
<~-*, DICT REF ——— FOR THIS DICT * ha LISTING > LISTING oH >*, RT .* 
+. PL ENTRY * te, REQD ಇ A ಕಾ REQD .* ^ we CHAIN .* 
ತ . . . . . . . 
ಶಿ .* $9599949900999999 *. .* we ತಿ, 6 
* * YES * YES * YES 
**** 
E 
“D4 Al * 
* 
sees 
REFMOV 
M spi E $99J35*9te*$9es* $esjue$etesosoos 
K a ITEM $ SCAN CHAIN OF 
SP BASED. TO * PRINT * STATEMENT 
ಎಡ ಎಡ F FOR DICT : ATTRIBUTES zzz NUMBERS AND | ----- 
: ENTR Y O : * PRINT THEM 
$9999992€0905229999* 9994999999999 ಇತಿ. $99999550294959999 
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Phase FX Overall Logic Diagram 


Table ED. Phase ED, Initialization 


Se re UTE Epod ep e MEM Sen i ಭತ E M CE ee — 
{Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
p--7---------------—---——-----——-----------------------—Lb---------------------------------—- 
{sets up routines in scratch storage|SETUP | None H 1 
|for phase EL | | Nu" I 
SENS SEER ee Pe ee ತ ಸ ಚಪ ಸುವ ಹ ಸ್‌ ಎತ 


Table ED1. Phase ED Routine/Subroutine Directory 


| Routine/Subroutine| Function 


}------------------ p—---—-—-——-——-————————————————————————————————————--- -— 
|EVENT | 


IN M 


| TASK 

| CELL | Routines for processing declared attributes. These set up 

| BASED linformation in the attribute collection area of scratch core, 
| POINTER | for reference by CDICEN, etc., in phase EL. 

| OFFSET | 


Table EG. Phase EG Dictionary Initialization 


ಸಾದಾ ee ae ee ರಾರಾ NU RES KI ICE CER ನುನ್‌ CM ವಾಲಾ LA cree 
[Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
Hashes labels [CAA1 |CHASH, CBCDL2 | 
| PROCEDURE-EEGIN chain |CA7 | None | 
| BEGIN [CA8A {None . | 
mene —— —  — ae SD ಆನಾ Rum cum EPOD ee OD ಬರಿ ee ee ee ee ee ee ED uum ಎರಾ a oe ee — ನಾ SD M—À— ON ಆದಾ ee A «Hu M ವಾ ಆನಾ ಇವಾ cuum ಇನ್ನು ee ಇವನಾ ee ee ಬಾವಾ ee oo ಪರರ ಕಾಡಾರಾ — ae ರಾ te ne ee en 
| PROCEDURE | CAPROC |CANATP, CFORP , | 
camem a Dee Ss EE UNDE UMS dye Ne aus ಕಾ: A ಇನ SR A ee ee ee EE Voce Cum ವಾಮ ET TE NT: SED OD ಸವಾರ PEE, ಚಹ ETE OED CES ಸಾವವಾ ees ow ಅಸಾ ee oe ee eae eee: EROR TS ಸಹಾ: ಸಮಾ AS ಬರವು TS Game NND —————— —À 
| ENTRY |CA10 |CANATP, CFORP | 
hl 
{Formal parameters | CFORP [CHASH, ೮೫೦೦೭2 - | | 
lAttribute list | CANATP | CAPRE1, CATCHA, CATBIT, CATPIC | 
bh — 
|Creates entry type 2 entries for | CTYPBL | ENT2F, CDEFAT |. 
| labels | | E 
nc —e ಭೂತವು ಮಾವ ಸಬಾ ಪಾಂ ಹಿ: i aN I eS ವ GEM cim READ ಹಾವ ಮಾ -l ED RI amm D em: ee ಇಮಾ GAMES CAEN c —— ಹಾವ ಮಾ ಮವ ee dm eae eo ತೆ 
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9 Table EG1. 
poo ಕಾಸ 
I 


Phase EG Routine/Subroutine Directory 


m Um ಸಹಾ Cn ನರಾ ಆನಾ CIUS ಅನಾ ಅರಿವ ಮಂದಾ ಮಾನಾ et ere QUID ಅನ ನದು re ಅಂವಾ UD ಆನು XU. ಆನಾ ಆನಾ cum ಆನಾ ಆವಾ ಲ ಆರಾ ಆನಾ ಮರು Qu cm ಆನಾ qum um €—À ಜಾವಾ ಮಾನು ನಾ ರಾ ಮಾನಾ ನಾ Áo ಹನ್‌ ಮಾಜಾ | 


Routine/Subroutine| Function | 
ical ಕ್‌ ಭ್ಯ DS ana hashes Labele, —— — — ^ "y 
lanare |Processes attribute list. 
cl ss PROCEDURE statements. i 
| carne | Processes precision data. | 
ote {Processes BIT attribute. | 
ORICHA ಜಃ CHARACTER attribute. | 
Inr gt |Processes PICTURE attribute. 
|CA6 {Scans the PROCEDURE-BEGIN chain for the relevant statements, and 
| .|sets bits in Dictionary entries for optimization options on | 
| | PROCEDURE and BEGIN statements. | 
xen ಆ BEGIN statements. | 
fren [Processes ENTRY statements. 
ಚಹ ಜಾಈ the hash chain looking for entries with the same BCD as 
| {that just found. | 
ಆಃ [Completes data byte for entry type 2 entries by default rules. | 
arant | Processes formal parameter lists. 
laiki [Obtains an address in the hash table for an identifier. | 
ಜೆ TOES entry type 2 entries for labels. l 
ENGE |Creates or copies second file statements. | 
mer i Scans ENTRY chain. | 
ಆಕ (EF) {Checks containing block options, for inheritance. 
Caer (EF) | Processes procedure options. 
|OPTN3 (EF) |Performs post processing, makes STATIC DSA decisions. | 

| 


| | 
JATTRET (EF) | Processes POINTER, OFFSET, and AREA attributes. 
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Table FI. Phase EI Dictionary Declare Pass One 


|Main Processing| | 
| Statement or Operation | Routine | Subroutines Used | 
hd 
| Scans DECLARE statement | ೮೮೮50೦ | None | 


bo { 


| Scans text | ೮೮652 | None | 


E-———--—--——--——------—------- Ss nnn nnn nn nnn nnn nnn nanan 
|Processes structure level | CCGSCM | None | 
mmm 
| ೫೩೦೬೦೫೮೧ attribute, left | CCFLP | CFPMCR | 
| parenthesis i | | 


hh nnn nnn -{ 
| ೫೩೦೬೦೫೮೮ attribute, right | CCFRP | None | 
| parenthesis | | | 


+ + 
| POSITION | POSIT | None | 


A ESS S 4 


|CHARACTER, BIT | CHABIT | CTXTRM | 


he 


| PICTURE | CATPIC | None | 


t t 
| LIKE | LIKE | None | 
nn nnn nn nnn nn nnn fn nena nnn mn nn enn ಸಾಗಾ ಕಾಸೂ nnn mmm naman mm mann moran 


| KEY | KEYED | None [ 


ಹಾ ಅಣ ಆಹ ಹೂ ಆ ಆತಾ ಹಾ ಎ ಹಾಸ ಲಾಲ ಅಹ ಎವಾ ಹ ಅಣು ಅಹಾ ಖಾ ಹಾಸ ಜಹಾ ಹಾ ಣಾ ಅ ಜು ಆಹಾ ಚು aeee ಬಟ ಎಸ ಅರಾ ಖಾ ಹಾ ಆಸಾ ಆರಾ ಅ ಜಹಾ ಆಹಾ ತಾ ಆಣ ಅಹಾ: ————————————————————————————-—-----4 


[Dimension | CDDIMS | CTXTRM, AST, TOMENE, ERRORB | 


hh 


[Precision | CDPREC | ERRNEG, SCLBIG | 


1 i -4 
| INITIAL CALL | INCALL | CTXTRM | 


——ÓÓ M — MÀ ar ene € ÁÀ À eae M ಮ — — ae a — — —————————————--——---—-—--—---—————————————---—----—- 


| OFFSET | OFFSET | CTXTRM | 


t + + | 

| EASED | BASED | PTVEXP | | 
hd 

| AREA | AREA | CTXTRM | 


dled 
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Table EI1. Phase EI Routine/Subroutine Directory 


pe 
| Routine/Subroutine| 


Function 


he 


| AREA 
| AST 


|BASED (EH) 
| 


ಟಕ 
ಸ್ಟ್‌ 
ಜ್‌ 
ಈ 
'ಉಚಟ 
| CCGSAT 
ಆ 
[668806 
cass | 


| 
{CDDIMS (EJ) 
|CDPREC (EJ) 


| 
| ೮7೦೦೫ (EH) 
[ರ್‌ 


I 
| CFPMCR 
I 
| CHABIT 
| 
(೦50900 


| 
| CTXTRM 


EHINIT (EA) 


|EJINIT (EJ) 
| 


| ERRNEG {Deals with the case of a negative precision specification. 
| s 
| ERRORB |Deals with the case of lower dimension bound declared greater than 
| | the upper bound. 
ES EE ಮಾ ನಾವಾ en E 
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| Processes AREA attributes. 


|Deals with the case of* dimension bounds mixed with non -* bounds. 
| 


[Entry point in OFFSET routine, at which second file statement is 
| made. 


[Processes PICTURE attributes. 


| 
|Processes data following DEFINED attribute. 


|Processes factored attributes (left parenthesis). 
| Processes factored attributes (right parenthesis). 


| Processes structure level. 


|Attribute routine selector. 


I 
| Scans DECLARE chain. 
| 


| Scans text. 


{Scans source text. 


|Processes dimension attributes. 
|Processes precision attributes. 


|Makes a dictionary entry for a constant unless one has already been 
jmade. Returns the dictionary reference of the constant entry. 


|Obtains more storage for the factored attribute table. 


| 
| Processes CHARACTER and BIT attributes. 


| 
|Detects end of DECLARE chain. 


|Tests for space in current text block and obtains new block if. 
| necessary. : 


|Processes the INITIAL attribute except for the initialization of 
| label variables and INITIAL CALL. 

| ತ 

|Processes INITIAL attribute and LABEL with a label-constant list. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


Table EI1. 


Phase EI Routine/Subroutine Directory (cont'd) 


[greater than 32. 


ಸಾಚಾ ee eT ee ee ee ee ET ಕಾರಾರ್‌ ee mm 
| Routine/Subroutine | Function | 
| GENTRY |Keeps a count of parentheses in GENERIC and ENTRY processing. | 
| | | 
JINCALL (EJ) | Processes INITIAL CALL attributes. | 
| | 
|IVROOM (EH) {Checks if there is space in scratch storage for another entry. If | 
i |not, it makes a dictionary entry and chains it to the previous one | 
| Jor to the C8 in text as required. | 
| | 
|IVPUTL (EH) |Places a dictionary reference in the ‘initial list’ for a label | 
| |constant. If the constant is not known, a dummy reference is | 
| | inserted. | 
| | 
|IVPUTC (EH) {Places a dictionary reference in tne ‘initial list' for a constant. | 
| | 
|IVPUTO (EH) [Places the dictionary reference of zero in the 'initial list' for a | 
| |negative or imaginary replication factor. | 
| | | 
| KEYED | Processes KEY attributes. | 
| | | 
| LIKE | Processes LIKE attributes. | 
| | | 
| NEWBLK {Obtains new text block. | 
| | 
| OFFSET (EH) | Processes OFFSET attributes. | 
| | | 
| POSIT | Processes POSITION attributes. | 
| | | 
|PTVEXP (EH) {Entry point in OFFSET routine, at which secondfile statement is | 
| jmace. | 
| | 
| SCLBIG [Deals with the case when a precision specification for fixed-point | 
| [data is declared too large. | 
| | | 
| SECON [Creates a dictionary entry for a constant provided the appropriate | 
| jentry has not been already made. | 
| | | 
| SETS | Processes USES and SETS attributes. | 
i | 
| TOMENE |Deals with the case when the number of dimensions declared is | 
| | 
L J 


ಮೂ ಮಮ ——— — — ಜಾಂ ಕನಾ ಮೂನ ವ ಮಾವಾ ಅಮ ವ ಹಾವ ವಾವ ಹಾವ ವಾ ನಾಮವ ವ ಮಮಾ ವಾಮ — 
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Table EL. Phase EL Dictionary Declare Pass Two 
ರಸಕ SS E ee T D MN ಗಾ a re ee eS ee 


ಇ A 1 
|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 


{Scans chain of DECLARE statements  |CGENSC | CDCLSC | 


md a 


[Scans each item of DECLARE | CDCLSC 


| statement | |CDIMAT, DCIDPR, INTLZE, POSTPR, | 
| | | SELMSK, STRPR | 


bod 
[Initializes each identifier | INTLZE | DCIDPR | 
| declared | | | 
hd 
[Processes factor brackets and level|DCIDPR | TEMSCN, BCDPR | 
| numbers I | | 


| ATLSCN, BCDPR, CDFLT, CDICEN, | 


~-------------}---------------------------------- 
[Scans for next level number | TEMSCN | CDATPR | 
poe 
{Processes BCD of identifier | BCDPR | BCDISB, CHASH, SELMSK I 


————————Á—— nf 


|Hashes BCD of identifier | CHASH | None | 


4 

[Scans list of attributes following |ATLSCN 
lidentifier | | | 
eed 


{Applies factored attributes | CDFATT | CDATPR | 


+ 
[Applies implicit attribute 


asm a unto auum ಆರಾಮ UI DF EES ಮನನ ಇರಾ ಆರಾಮು ರಾವಾ ED ಎನಲು ED AUD. NEE ಆನಾ ES ED ರಾವಾ ques ES ಯು ನಾರ cute» cmo eru ಖಾ aum. GED EE apum ಅನನು EP qup ANM) MID ಆಹಾ SEED ಹಾ ಆಹಾ, 


[Attributes controlling routine | CDATPR 


| 
| 
| 
| 
| 
| 
t 
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| CDAT44, 
| CDAT4A, 
| CDATUF, 
| CDAT57, 
|CDAT61, 
| CDAT69, 


CDAT6A, 


CDAT42, 
CDAT48, 
CDATAC, 
CDAT55, 
CDAT59, 
CDAT63, 
CDATB4, 


CDATU3, 
CDAT49, 
CDATUD, 
CDAT56, 
CDAT60, 
CDAT64, 
CDATB8 


| 
| 
| 
| 
| 
| 
| 
ತ 


Table EL1. 


Phase EL Routine/Subroutine Directory 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
d 


[Routine/Subroutinel| Function | 1 
[arisen I ಚರ್‌ 1 
ಸಹಸಾ |Checks for multiple declarations, etc. 
tie ಟ್‌ BCD of identifier. 

ee (EK) A controlling routine. 

NS (EK) ಆ DECIMAL attribute. 

ಜ್‌ (EK) |Processes BINARY attribute. 

ere: (EK). ENS FLOAT attribute. 

ಚೈ (EK) ere FIXED attribute. 

[| (EK) etn REAL attribute. 

| Aras (EK) SS COMPLEX attribute. 

ere (EK) | Processes precision attributes. 

[CDAT48 (EK) ಜ್‌ VARYING attribute. 

ಹಸ (EK) | Processes PICTURE attribute. 

eee (EK) {Processes BIT attribute. 

ಜೆ (EK) ee CHARACTER attribute. 

ere (EK) ಸಸ FIXED DIMENSIONS attribute. 
ಸಕ (EK) ಹ LABEL attribute. 

ಈಸಾ (EK) ROI ADJUSTABLE DIMENSIONS attribute. 
pages (EK) | Processes ENTRY attribute. 

ಅಶಾ (EK) E GENERIC attribute. 

ಸಾ (EK) ಜ್‌ BUILT-IN attribute. 

ಕಳ (EK) | Processes EXTERNAL attribute. 

ಚಾಚ (EK) [Processes INTERNAL attribute. 

ಆ (EK) | Processes AUTOMATIC attribute. 

ಆ (EK) | Processes STATIC attribute. 

ಬಜ] (EK) ರಜಕ CONTROLLED attribute. 

ಆಸ (EK) ರಜ INITIAL attribute. 

[coazén (EK) ವಾಸ LIKE attribute. 
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Table EL1. 


Phase EL Routine/Subroutine Directory (cont'd) 


Cat se. ee ee Mee ee puru Oe Pe ವವು ದಾ ee DATE LE RIT ಸತಾ ee RT CUR A ee ನಾರಾ ey ya eae 
| 


Routine/Subroutine| Function 


———P———  —— M —-— 


{CDAT6B (EK) 
TO (EK) 
ಜಿ (EK) 
೫೯70 (EK) 
ರಃ (EK) 
ಅಚ 
ಹಾಗಾ (EM) 
fon (EM) 
fee (EM) 
ಇರ (EM) 
ಚಟ Ge 
emi 
ಜಟ 
oe (EK) 
VENERE (EM) 


| 
| INTLZE 


[Performs initialization for each identifier declared. 
ಕ ಚ op: 
| (EM) T chain of DECLARE statements. 
lourde TRO correct test mask to be initialized. 
T ORE inheriting of dimensions in ನ್ಟ 
ಗ್‌ eean ahead for next level number. 
a Aa 
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| Processes DEFINED ATTRIBUTE. 


| Processes ALIGNED attributes. 


| 
| Processes UNALIGNED attribute. 


| Processes AREA attribute. 


{Processes POS attribute. 


| 
[Scans each item of DECLARE statement. 


| 

|Applies factored attributes. 
[|Applies default attributes. 
| 


|Constructs dictionary entry. 


I Performs phase initialization and scans chain of DECLARE 


| Hashes BCD of identifier. 


|Main scan routine. 


|Processes factor brackets and level numbers. 


{Initializes and passes control to Module EM. 


l 
|Applies implicit attributes. 


Statements. 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


Table EP. Phase EP Dictionary Entry III and Call 


[Main Processing| | 


4 
|Examines all labels belonging to an|LBPROC 
jentry type 1, constructing an entry| 

|type 2 or 3, if necessary | | | 
heel 
| Follows CALL chain in text making  |EPL290 | None | 
[dictionary entries for entry points| | 


| Statement or Operation Type | Routine | Subroutines Used | 
ಸಹಕರಕ ಪೂಜಕ ಕಜ ಪೂಟ ಕುಸು ಸುಟುಟ , 
{Scans for PROCEDURE entries type 1 |ENTRY3 | None | 
---------—_------~---------------- g--—----------- }----------—------------------------ 4 
| Follows chain of ENTRY statement [EPL40 | None | 
jentry type 1 entries froma | | | 
| PROCEDURE entry type 1 . | | | 
~-~----—-------=-----------------}----------—---- he 

| 

| 


|Examines the first character of an |CDIMAT | None | 
lidentifier and sets a flag | | | 
[indicating the range in which it | | | 
[lies | | | 
— —— a Hf nnn }-------------~---~----------------- 1 
{Applies default rules |CDFLT | None | 
[Given an identifier calculates its eter Inno 1 


loffset in the hash table | | | 


hl 


{Constructs a dictionary entry | CDICEN | None | 
hed 
|Sets address slot to zero or the | FNDEND | None | 


lend of the dictionary | | | 


Ice a ವೂ ಎಮಿ E ನಮೂ ಮೂವ ——MM— J 
{Constructs list of numbers of known|BLDST2 | None | 
| blocks | | | 
bol 
{Built in function name | SCANBF | None | 


tL nn a ee cm amm ee m m a o } 
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Table EP1. 


Phase EP Routine/Subroutine Directory 


[Routine/Subroutine| ~~ Function i 
|BLDST2 | constructs list of numbers of known blocks. 1 
ಚಕ {Constructs dictionary entry. | 
leprwam |Sets flag for default routine. | 
ori I default rules. | 
ಯುತ |Calculates offset in hash table for given BCD. 
ds oe ENTRY chain for PROCEDURE statements. | 
ಆಟ! just entry in entry type 1 chain. l 
[೩೦೭೩0 Scans ENTRY chain for ENTRY statements type 1. | 
1೫೫275 ಸಂಟ point from LBPROC routine. | 
cerio | Processes new entry label. | 
Epa ene CALL chain. l 
ಚಟ {Searches built-in function table for BCD of identifier. | 
| ೫೫2360 |Blanks out BCD in text. l 
00 eee the CALL chain. | 
TS sets address slot for label. | 
ಜಿ | Processes labels of PROCEDURE or ENTRY statements. 
ಕ |Initialization of phase. | 
ಚಾ ene later modules as 'wanted' or ‘not wanted’. | 
| SCANBE ಸಾ for built-in function name. ಕ | 
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Table EW. Phase EW Dictionary LIKE 

pee ಅರ ಕಾಸ a UIT que e ea a a a ede eR 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


}---------—------------—----------}--------------- -----------------------------------4 


| 5೦೩೫75 LIKE chain | EWBEGN | ೫೫೮೦೨೪, EWELDM, EWINCH, EWONDM | 


{Updates hash chain for new entry |EWHSCN one «SCS 
[calculates start of structure data |EWVART luna COT ee f 
|from start of variable information | | | 
feusngessetcecentey io fuse ನತ್ಯ ಹಾಸನದ: ಸಸ ಇ 2ನ. 
[Copies dimension table entry ಪೂ ಚಾರ ್‌ದ್‌ ಬಳ sss | 
| 5೮೦೦೫೮ file statement | | | 
ಓವ ಸಮಾಸು ಹತು ವಾಡಿ ee TERCER] op ao ವಯಾ ಪಾವ oo Rn EN ee) 
Table EW1. Phase EW Routine/Subroutine Directory 

[Routine/Subroutine}—<“<‘(< Fencion ುುಂೊಂೊಂೊಂೊ್ಳ್ಥ"ೌ%್ಳೌೈೌೈೌ ೈ “ ಯ ್ಳ್ಲ 
[ALIGN (EV) inovides (coreec alignment of base tenants in Vikenad cuuctares | 
| BASED (EV) {inserts or deletes defined slot, where only one structure is based. | 
ಈ {scans dictionary to find entry corresponding to BCD in text. 
ವ |Scans LIKE chain. | 
cane ಜ್‌ error entry to base element. | 
6s ಚ್‌ dictionary entry into scratch storage. 
ಸಾಕ (EV) ಎ initial dictionary entries and associated second file | 
| | statements, etc. | 
— ಜ್‌ entry into scratch storage with ಸುಕ data removed. 
a | 7೮೫15 whether the likened structure is dimensioned. | 
ಇಟ | 3೩೫೮3೮೮ transfer of control to next .phase. | 
ಟಟ ಡ್‌್‌ erroneously "likened" major structure. | 
| sanas [Updates hash chain for new entry. | 
ee es entry copy and places it in dictionary. | 
008 |Tests whether original structure is dimensioned. | 
— (EV) jObtains new dictionary block and terminates current one in use. | 
me osten entry into scratch storage, inserting dimension information. 
foo |Processes dimension information in original structure. | 
ಸ [Tests validity of likened structure. | 
1292೫೫5 (EV) Ieepses second file statement and associated dictionary reference. 


————— Á—— — — — ಎತುತ ವಾಯ ಹೋಮ ಇಕಾ ಮು ಮ ಪಾವ UP — Ow ee amm» ಆಜಾ Oe AED ae ee ಆಜಾ Oe ae UD an ಆನಿ ಯು ಆನಾ ಆನಾ ಆನಾ ಮಾ ಆನಾ VID ಪಾವಾ UND. CHIP a eee ee ಆವಾ ee aw: 
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Table EY. Phase EY Dictionary ALLOCATE 


nn a an tr rr ery rr nr ಮುಕುರ ಕಾಹು ಪಾರ ಕಾರಾ + 


| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
| ~--------—-------------------------}---------------4----------------------------------4 
{Scans text for explicitly | IEMEX | EY14 | 
|pointer-qualified based variables | | | 
SES i ar a ol cap nt es EE ರಾಬಿ ಪಾಷಾ 4 
[Copies dictionary entries for | 
| explicitly qualified based | 
| variables | 
4 
| 
| 


HASH, ATPROC, DICBLD, STRCPY 


|Second file pointers. Scans 
| ALLOCATE statements 

De pM RH MN MV UM QM ನಾದದ fun VI IM CM C ನಾನವರ ಲಲನೆ 
[Completes copied dictionary entry |ATPROC with | MOVEST | 
|for an allocated item |second entry | | 
| |point ATPROD | i 
me —-------- —} ------ ----- — — ———— ——9À. 
{Controls ATPROC and ATPROD routines |STRCPY | ATPROC, ATPROD | 
| for each member of a structure | | | 


mm mn ee ee ಅ ela ಮಾ ಜಾಮಾ ವವ ವಾಸ 


ATPROC, DICBLD, HASH, STRCPY 


Table EY1. Phase EY Routine/Subroutine Directory 


ಗನ್‌ ede enc duiawred qae quE ME qe e cdm c Me qe c n eme E, 
| Routine/Subroutine| Function 


|ATPROC/ATPROD (EZ)|Complete copied dictionary entry for allocated item by including 
| jattributes from ALLOCATE and second file statements. 


| 

DICBLD | |Collects attribute given for an identifier and copies its dictionary 
| entry. 
| 


Y16 | Processes ALLOCATE statements. 


E 
| 

EY17 |Processes identifier in ALLOCATE statement. 

E 


Y21 |Processes major structures. 


EMEX [Scans text for explicitly pointer-qualified variables. 


I 
೫1೫18 |Copies dictionary entries for explicitly qualified based variables. 


EMEY {Scans second file, reverses pointers. Scans ALLOCATE statements. 


3 
MOVEST (EZ) {Copies second file statement and associated dictionary entry. 


| 
STRCPY (CORT ATPROC and ATPROD for each member of structure. 


— — — e a ಮಾನಿ a T ee — eo ED — — — — eee — — — — ಅಲಾ ಲ ಮಾ ಲಾ 


| 

I 

| 

| 

| 

| 

| 

| 

| | 
| HASH |Hashes BCD of identifier to obtain its dictionary reference. 
| 

| 

| 

| 

l 

| 

| 

| 

l 

| 
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Table FA. Phase FA Dictionary Context 


CE 


ಮೂವ ದವ ವಿವ ಬವ ಷಿ a 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}---------—--------------—--------} ---------------} -----------------------------------4 
{Scans text 1೮೫30 | ೮೫೫೦75, CETRAN | 
~---=--------------—--—--------— }---------------}-----------------------------------] 
|Reorders subscripts; makes |CEID | CESCN | 
[dictionary entry for file and event| | | 
| variables | | | 
bo | Sm ee —- 4 
{Identifies keywords | CEKYWD | CEKEND, CEKEOB, CEKEOP, CEKON, | 


| | | CEKPRC, CEKSND | 


hh - 


[Scans dictionary | CESCN |CESTUC, CEYES, CFPDER, CFPDR2, | 
| ; | | CHASH, CE3XX | 


— ————— ಎಮ ——ÁÁ—— ವವ ಬಮ 1 
|Makes dictionary entry for l | CFPDR2 |CDFLT, CDICEN, CDIMAT, CEONCK | 
|variables | | | 
ml 
| Scans dictionary entry for | CECON | CHASH | 
[constants and makes new entry, if | | | 
[necessary. | | | 
]-———-———-————---—— $f nnn nn nnn nnn nnn nn nnn nnn nnn nnn nnn nnn 
[Scans PICTURE chain entry and makes|CEPICT | None | 
[new entry, if necessary. | | | 
| RUNE ER EL ee ಬಸೂ eee ae 1 
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Table FA1. 


|Routine/Subroutine| | Function > ಯ್ಥ್ಲ್ಷ 
{eorr ಂ್ಲ್ಬ್ಳ್ಲ್ಳ್ಲ%ೆಃಯ! [Determines default attributes for identifier. = = | 
ಜ್‌ ಜಸ default dictionary entry for identifier. 

ERS |Determines default scale for identifier. 

eo [Transfer point for zero or blank. 


| 

|CECON (FB) 
| 

| CEDWAX 


| 
|CEID 


| 

CFT 
ಬಜ 
cri 
4 
i 
ee 
ಸಹ 
oe 
ಟ್‌ 
lemon 
ಪ್ರಜ 
es 
en 
[ona 
Ne 
ieee 
ಜ್‌ 
0೫೦೫೦೫ 
| ೯೯೪೫ 
ಕ (FB) 
cen» 
ಇಟ 


| 
| CESMCL 


| 
|CESTUC 


Le 


148 


Phase FA Routine/Subroutine Directory 


{Scans dictionary entry for constants. 


|Subscript prime text marker. 


|Reorders subscripts and makes dictionary entries for files and event 


| variables. 


.|Transfer point for constant routine. 


|Transfer point for iSUB. 


|Transfer point for CALL to get over chain. 


l 
|Removes SN from DECLARE statements. 


| 
| Processes END keyword. 


| Processes end-of-block marker. 


|Handles end-of-program marker, or start of second file. 


|Transfer point for keyword. 
|Transfer point for iterative DO. 


|Processes ON keyword. 


{Transfer point for picture format item. 


| 
|Processes PROCEDURE keyword. 


{Moves SN, etc., to output stream. 


|Processes start of second file statement. 


|identifies keywords. 

ಜ್‌ point for left parenthesis. 

|End of text block in output file routine. 
|Makes entry for programmer-named ON condition. 
|Makes dictionary entry for variables. 

[Scans picture chain entry. 

[Transfer point for right parenthesis. 

[Scans dictionary. 

Insudiss semicolon. 


|Points at next entry in structure chain. 


Bo nr À À— MÀ ಕರ್‌ 


er ae LT 1 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


Table FA1. Phase FA Routine/Subroutine Directory (cont'd) 


ಕ UE TEUER ಶಾಸಕ eR PE ed IMP ರಾದಾ ರುದ ದಾದ ರಾದಾ ರಾಕಾ ನಾನಾನಾ ನಾನಾ 


TE ರಾ ದಾರ್‌ ರಾ PR ALTA 
|Routine/Subroutine| Function | 
bo ————— ಇ 
| CETRAN {Translates keyword into transfer instruction. | 

| | 
1೮೫೫೫5 |Compares structure levels. | 
| | | 
| CE2L |Transfer point for second level marker. | 
| 
[CE30 |Controlling Scan of text. | 
| l | 
|CE31 |Tests for end of block. | 
| | 
| CE32 |Moves one byte to output stream. | 
| | 
| CE300 |Switches to appropriate routine. | 
| | | 
| CE3XX [Compares identifier in text with entry in dictionary. | 
| 
|CFPDER (FB) |Makes dictionary entry for ordinary identifier. | 
| | 
|CFPDR2 (FB) |Makes dictionary for formal parameter. | 
I | 
| CRASH |Hashes identifier. | 
| | | 
| CHASHC |Hashes constant. | 
I | | 
| IEMFA {Initializes phase. | 
cM —— —— de FS a ಸಾ ey 
Table FE. Phase FE Dictionary BCD to Dictionary Reference 
ಸುಜ ಭನ ಅಚ ಪಜಯ ಕರುವು ಇಟು PII qc at ee te oper ee ee ಕವನ್‌ ಜಪ ಪತ 1 
| |Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
| ~--------------------------------—- fo ho - ~----—- 4 
[Scans text | CE30 [CENDTS, CETRAN | 
—-———--—---—----------------------—--4--------------------------------------------------4 
|Scans dictionary | CESCN | ೮೫5೫೮೮, CEYES, CFPDER, CFPDR2, | 
| | |CHASH, CE3XX | 
——————— ಪವನ ಸಾರಾ ಪಾಸ ಹಾತತಾತಾಸಾಮಾ ಷಾಹಿ -———————————-——-————-—-------—----—-i 
[Checks for array, function, or | CELP | CETNCT | 
|pseudo-variable if left parenthesis| | | 
jis found | | | 
}--~----------------------—~-------- }---~-----------}-- ~-------—----- mee 1 
[Tests for end of text block | CENDTS |CEKEND, CEKIDO, CEKPRC | 
m — — — anaran amamen am 0 ಟಾ am =e ಪಾನ oe ee ಪಾಟ ae ee ಆವಾ ಅವಾ ಇದುವ ಣಾ ee ee ee en ee ee ees a ee ee ee ee ee ee ee eee ಚಾ 4 
[Identifies keywords | CEKYWD | CEKEOB, CEKEOP | 
el 
|Makes dictionary entry | None | ೮೧೯೫7, CDICEN, CDIMAT | 


Loman ಆಖ ಅಸು cee rere ಅಹ re eee cree ಹಾವ eee aum m cum re cs cs ane ಸಿಖ್‌ Je ಣಾ m wm mo m ಆಹಾ eer ren a m hm mm ಆಡು: ee ಆ ಹುವಾ ಇಹ ಅಡಾ um mm aee mm cs mm c ee ans d] 
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Table FE1. Phase FE Routine/Subroutine Directory 


m 


|Routine/Subroutine | Function | 
ನಾನಾನಾ 1 
| CDICEN TTE dictionary entry. | 
oor |Sets flag for default routine. | 
| CEFNCT |Tests validity of function reference in text. | 
| CEKEND |Processes END keyword. 
ಚತತ |Processes end-of-block marker. 
| CEKEOP |Processes end-of-program marker, or start of second file. | 
| CEKIDO . ಚ್‌ iterative DO keyword. | 
ಸ ಜೂ PROCEDURE keyword. 
CERTAN aides keyword. ! 
| CELP [Checks for array, function, or pseudo-variable if left parenthesis 
| lis found. | 
oe | pases for end of text block in output file. | 
|CESCN UN dictionary. | 
| CESTUC ಜ್‌ at next entry in structure chain. 
| CETRAN |Translates keyword into transfer instruction 
| CEYES |Compares structure levels. | 
|CE30 {Controlling scan of text. | 
| CE3XX ಜೂ identifier in text with dictionary entry. 
[erpzcn (FF) Likes dictionary entry. | 
(canes lakes dictionary entry for statement with ordinary identifiers. | 
| CFPDR2 lakes dictionary entry for formal parameters. | 
ಷಾ ಟ್‌ offset in hash table for given BCD. 
Table FI. Phase FI Dictionary Checking 

ee ee [Main Processing] ಲ [ 
| Statement or Operation Type | Routine | Subroutines Used | 
Iscams text — ^ esmer —— ^  jemmm ^ ^  — — | 
NERS == |CEREYH —— |CEKEOB, CEKEOP, CEKIDO, CEKSN | 
ltüecre Gore tatement references ರ್‌ 
[Converta Goro to Gom, if nécessaty|CRonB = .  lxe SC ns 
pee ಗಾಲಾ ee ee 
[checks data list items for validity|CEDRCK [None | 


LlIl2IlolB.Tl--—————————— eee —— c a c — rd TE —— ——————————————— peces | 


Table ೫81. 


Phase FI Routine/Subroutine Directory 


—————— Sa 


| Routine/Subroutine | 


[ಕ್ರಾ 
ಕ್‌ 
ಆಜಾ 
[coer 
(Es 
ಜ್‌ 
ಜ್‌ 
ಸ 
lee 
(2508 
ಕ 
| CEKEND 
es 
oe 
8೫೫೫೪ 
ಆಟ 
‘Rion 
| censu 


| 
| CELRCT/CERPCT 


ರ 
ಟು 
ie 
a 


| 
| CESTRT 
t 


Function 


|Tests value of previous second level marker. 


| Processes function names used as control variables for DO groups. 


| Processes end of iterative DO groups. 


[Tests whether dictionary reference needs to be checked. 


onesie data list items for validity. 
{Checks file references. 

|Processes function markers. 
{Converts GOTO to GOOB, if necessary. 


[Checks GOTO statement references. 


|Processes iSUBs. 


| Bumps scan pointer over dictionary reference. 


|Processes END statements. 


| Processes end-of-block marker. 
TEE end-of-program marker. 
{Identifies keywords. 

[Processes iterative DO keyword. 

| Processes ON statements. 

|Processes statement number. 

[Process left and right parentheses. 
one validity of keywords in the text. 


| 
| Processes PROCEDURE and BEGIN statements. 


| Processes remote format references. 
| 


| Processes semicolons. 


[Controlling scan of text. 
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Directories 


hes amm extare mene cem GED eus) ಆವನ que ವ ಮಾನಾ GRUND case eee ae ರಾದಾ cee amen ee eee ee ees D D eee ee ಆದಾನ ಕಾನಾ ee ee ee ರಾನಾ ಅಚ ee ee oe ee eee 
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Table FK. Phase FK Dictionary Attribute 


ಬ ಪುಮ eee er TT qon) t i iE Dé DRE MM ಲದ ವಕಾತ್‌ 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
-——————————————————————————————-—-——6--------------—4---------------------------------——-4 
[Scans attributes area for SETS | FO1A | None | 
|lists | | | 
be ———— fe g----——---———------------------—- 1 
[Scans SETS list | FO2 | None | 
ed 
| Processes constants | CONPRO | None | 
bel 
|Processes identifiers | CESCN | ೮೫5೫೮೦, CE3XX, CHASH | 


| ee ns ಅಜಾ ome em ಸೊ ಅಹಾ ಅಹಾ ಣಾ ಹಾಹಾ ಅಣ ems ಅ ಅಲ em ce a ed 


Table FK1. Phase FK Routine/Subroutine Directory 


p(7—-—————-—-—-—————————q-——-————————————————————————————————————————————--———-—----—--——-—-——------— 


| Routine/Subroutine | Function | 
|CEIDDP OO [Scans qualified name. ^ 0000000000007 1 
ಜು | Processes unqualified name. | 
ee ಸಶಿ, identifier. 
ಯ |Finds address of next structure in chain. 
[CE3XX | aru current BCD with BCD in hash chain. 
TS eet offset in hash table for given BCD. | 
ಕತತ {Provides termination error action. 
ಆಜ |Inserts constant in ordered stack. | 
ಮತಿ ಜು constants. | 
— |Releases control. 
೦೫೫೫2 {Diagnoses constant greater than 255. 
bein | Scans attribute tidy-up area. . | 
wo {Scans SETS list. 
oa ಇತ SETS dictionary entry. | 
| GETSCR obtains scratch storage | 
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Led 


Table FO. Phase FO Dictionary ON 


|label mentioned in a CHECK list. 


| 
| Examines BCD of file entries referenced in ON, SIGNAL, and REVERT 


endis a CE CP DM EC MCCC DEC UCM pM a ee or M E E MK MCI ಡಾನಾ ee 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ee 
[Scans input text for ON, SIGNAL, | FKMVIT | BEFTRN, CENDTS, QP | 
jand REVERT statements | | | 
|-------------------——--------------}--—----------- -----------------------------------+ 
|Moves second file from input text |F2 | CENDTS, BEFTRN | 
| 300% to output text block | | | 
|----------------------------------- }--—----------- }----------------------------------- 1 
|Makes dictionary entries for ON- | FKDCEN | LABCD | 
|conditions found in ON, SIGNAL, and| | | 
| REVERT statements I | | 
bohm 
| Examines BCD of file entries | MVSIG | CENDTS | 
jreferenced in ON, SIGNAL, and | | | 
|REVERT statements; scans previous | | | 
[entries for ON conditions | I | 
ed 
| Processes CHECK and NOCHECK list.  |BEFCHL | CENDTS, LABCD | 
|-------------------------------—-- }------------- ~-}--------------------------------—- 1 
[Creates dictionary entries for | NOMOVE | QP | 
[condition prefixes | | | 
Table FO1. Phase FO Routine/Subroutine Directory 
A 1 
[Routine/Subroutine| Function | 
foam nf a nn nn nnn nn nnn nnn rem nn mn nnn nnn 1 
| BEFCHL |Processes CHECK and NOCHECK list. | 
| 
| BEFTRN |Replaces statements containing dummy dictionary references by error | 
| [statements, and generates error message. | 
| | 
|CENDTS | Requests a new text block for output. | 
| | 
{FKDCEN | Makes dictionary entries for ON conditions found in ON, SIGNAL, and | 
| | REVERT statements. | 
| | 
| FKMVIT [Scans input text for ON, SIGNAL, and REVERT statements. | 
| | | 
| FKNOCK | Processes CHECK and NOCHECK lists. | 
| | | 
| FKPROC [Scans input text for ON, SIGNAL, and REVERT statements. | 
| 
1೫80180 (FP) [Chains initial label statements and makes second file dictionary | 
| |entries for each label array initialized in this way. | 
| 
1೫2 |Moves second file from input text block to output text block. | 
| 
| LABCD [Creates a dictionary entry for each label constant and each entry | 
| | 
| | 
|MVSIG | 
| jstatements; scans previous entries for ON conditions. | 
| | | 
| ೫೦೫೦೪೫ (FP) [Creates dictionary entry for condition prefix. | 
| | 
103 [Processes condition prefixes changed in current block. | 
| l | 
[QP |Determines which condition prefixes require dictionary entries. | 
| | 
I R8 Moyes statement to output buffer. | 
L J 
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e Table FQ. Phase FQ Dictionary Picture Processor 
RCM ad C E CX CR CEDE a a t uvis Ke MM ECCE MM CQ ಮಾವಾ ಮಾನವಾ ಜ್ಯಾ ee ಟೂ 1 
[Main Processing| | 


| 
| Statement or Operation Type Routine | Subroutines Used | 


[Controls scan of PICTURE chain; 
|initializes 


[Picture characters S, $, +, ಎ. | CYSDPM | None | 


— — ————— ———— 


{Picture character V | CXV | None | 


1 + + 
{Picture character E | CYE | ೮೫೦23 | 


—— ——————————— 


[Picture character K {CYK | ೮೫೦23 | 


hd 


| | Picture characters CR, DB | CYCRDB | None | 


}---------—-------------—---------—}------------- 


|Picture characters 1,2,3 |CYOTT | None | 


———M—— ——  A— E: 


|Picture character P {CYP | None | 


+ 
{Picture character 2 jcyz | None | 


l—M—M— nnn nnn np ann nnn nnn nn nnn nnn nnn 1 


|Picture character * |cxasT | None | 


bo 


|Picture character Y | ೮೫೪೫ | None | 


manna nn nn ann — nnn OSO O: 
[Picture character G |CYG | None | 


}|-----—---—---------—-----------—-—- 4--------------- $-—-------------------------—----—- 1 
|Picture characters 6, 7, 8, H | CYSSEH | None | 


t 4 ł-~-- 
{Converts integer constants to scale|CYC97 | CYCONV | 
| factor | I l | 


hh 


[Calculates scale factor | CYFNT | None . | 


ಸ್‌ು LL -——————————————————————————————---À 
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Table FO1. 


Phase FQ Routine/Subroutine Directory 


[Rout ine/Subrout ine| Function | 
ರೇನ್‌ 
ee ಜ್‌ picture character. | 
ಇಟ ಜ್‌ scan of PICTURE chain. | 
lacon ee integer constant to scale factor. | 
ಸುತ RAS picture characters slash (/), comma(,), point (.), and B. 
ಬಾಗು peer picture characters CR, DB. 
fon [Adjusts data to terminate picture before illegal character. | 
(0೪೦97 ಟ್ರ integer constant to scale factor. | 
lex ee picture character E. 
Les ಜ್‌ entry for correct picture. | 
Co |Releases control at end of picture chain. | 
lerë SSE picture character F. 
ಟಾ {Obtains code for next character in picture. | 
1೦೪೫೯೫7 |Calculates scale factor. 
ieee ನ picture character G. | 
ee rete picture character K. | 
oe Sere picture character 9. l 
ಕ ಸ್‌ picture characters 1,2,3. 
fer ೫ picture character P. | 
ಹಕ TE picture characters S, $, 
eyes roca picture characters 6,7. | 
eee ಸಜ picture characters 8,H. | 
Nero ಸಾ picture character M. 
ಆಕ |Code table for picture characters. | 
cvv |Processes picture character V. l 
ಈ ಜ್‌ picture character ೫. | 
evz Eros picture character Z. 
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Table FT. Phase FT Dictionary Scan 

CS re ee ee ಸಾನ್‌ ಚಾಸ್ಯ qo cU OU ವ ere tae ae ee S 1 
|Main Processing] | 

I Statement or Operation Type | Routine | Subroutines Used | 


——Á— T — ————— A 


[Scans second file 1೬೮3 ` | None | 


}---------—------------------------ }--------------- }~---------—------------------------ 1 


{Scans dictionary |B1 1೫೩೦೧೮ ` | 
—— —— ———— ——— ———' 
{Data variables | DATVAR | None | 


bod 


|Event or label variables | EVLABV | None | 


|--------------------~----—-------— }--------------- }----------------------------------- 1 
|Scans AUTOMATIC chain 16೮2 | None | 


— —— — P RRA—A— 


|Scans STATIC chain 163 | None | 


proe por fama nnn nn nnn nnn nnn nnn { 
{Scans CONTROLLED chain |GE1 | None | 


1 + | 
|Sets dope vector required bit 1217 | ೫೦೧೮ | 
GC— — — — — ———————— nnd 


| ENTRY type 1 entries | QAL | None | 


——— ED eee ane eee ee ee ee ee ee ee ee ee ee ee ee ee ee ae ss eee ED cue pum ಪಾ eS A EE SE ಅವಾ EE ER A ee ee ee eS ee ie SE erin ee gee ce ee 1 
| ENTRY type 2 entries {QA3 | PROPIC | 


}---------—------------------------ $--------------- }----------------------------------- 1 
| ENTRY type 3 entries IQA2 | None | 


——P— — ——————M———— 4 


|ENIRY type 4 entries 102 | None | 
1 + 4 

{ENTRY type 5 and 6 entries |QA1 | PROPIC | 
bo 


{Constants | CONST | None 


1 + + 
| Structures | STRUCT |AJDMRT, MKDMTB, MVTXT 


LIIIIIIIIII—————————————————————Ll—l——-———————-——L--——-—————-—————————————————————————— 
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Table FT1. Phase FT Routine/Subroutine Directory 


|Routine/Subroutine| Function | 
ಕ (ESTES "MEM C E ರರ 
| AC2 |Detects second file statement marker. 
| AF3 {Points relevant dictionary entry at statement. | 
[AJDMRT {Modifies second file statements to initialize dope vectors for base | 
| |elements, rather than for the containinc structures. | 
183 eae dictionary. | 
{BIA i dictionary scan. | 
[CONST ocn constants. | 
|DATVAR E data variables. | 
| EVLABV |Processes event or label variables. | 
56 ಜ್‌ dimension attributes. | 
i | Moves initial label statement to the second file, collecting | 
| | together all statements for the same array. | 
lcgi fee CONTROLLED chain. | 
lez PR chain. j 
MS ಜರ್‌ STATIC chain. 
fee {Creates dimension tables. | 
ತ್‌ Te text blocks. l 
| PROPIC |Zxtracts precision data from picture tables. | 
sii T Sets 'dope vector required' bit. | 
oe " Processes ENTRY type 5 and 6 entries. i 
ee ie Processes ENTRY type 3 entries | 
oe ಜ್‌ ENTRY type 2 entries.’ | 
I pad ENTRY type 1 entries. l 
T IET ENTRY type 5 entries. | 
ಸಟ T Processes structures. | 
[1೫2೪೬೦೫ ir ransfer vector for appropriate chaining routine. | 


a— e ಸಾ qus ಸಾಸ ತಾನ dum ಆರರ ಸಾ ಅತಾ AND ಆಜಾ ಎ ವ cts ಅದಾವ ES ತಾ opus cui» ಪಚಾ ತಾತಾ AE EY ತಾತಾ ಹಾಸ ಅರಾಮ ED qup ವಾನ ರೀಟ ರವಾ SAND ನನ APUD ಘಾ VEND CUBO ಹಾಸ uS ಆವಾ ಸನ ದವಾ ಪಾಸ MED ನ ನಾ ಇದಾ ಘಾ ವಾನ ಸಸ AUD ನಾ ಭಾ ES cus ಆನಾ ಆಬಾ ಪ UND auum epum ಖಾಸಾ ಇಷಾ 
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Table FV. Phase FV Dictionary Second File Merge 

mm uL MM er a en ee or ae ee naa mee ae a ala aaa 1 
{ |Main Processino| | 
| Statement or Operation Type | Routine Subroutines Used | 
DATCPY, DEFMOV, DEFTST, F2MOVE, 

MOVE 


| Reverses second file pointers; 
15೦೩೧5 text for block heading 
|5tatements; allocates statements 
lang references to dynamically 

| defined data 
p---—-—------——-—----------------------—— 
|Exemines ADF references in second 
|file; complete; defined item 
|dictiona-zy entry 

[Detects dictionary references which|DEFTST 

1೫೧೫೧೫ to dynamically defined data | 

|Examines dictionary references and |DATCPY 

{moves any associated second file | 

{statements to the output string 


DEFCOM 


-mam an ae — Dum — sae e ame a ಹಾ — ತಾನ em ee — — ee ee ee — ee ee ee ee — ee ee ee — — — — 


MM — amo mjo ameo —Ó— ee ee fjae 


F2MOVE, MOVE 


|Inserts dictionary reference of | 
|pointer in associated based | 
|variable entry | | 


hl 


l 
| 
| 
| 
i 
i 
| 
i 
| 
| 
i 
i 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
|] 
| 
l 
[ 
— —— es — 
l 
| 
| 
l 
| 
| 
| 
i 
| 
[ 
| 
! 
| 
d 
| 
eke 


| Processes adjustable extents on | FVADV | None | 
| cased arrays | | | 
poo aan = enna nn nnn nn nn fn nna nnn nn nnn nnn nnn nnn nnn 
| Processes adjustable lengths on | FVSDV | None | 
{based strings | | | 
"AC H—M—Á—  — LENE SN. ಹಸ NE ED STN 4 
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Table FV1. 


t---—-—-------—- 
| Routine/Subroutine 


Phase FV Routine/Subroutine Directory 


ಸ್ಪರ ದ ee eR P NG Se eS ee ನನಾದ 1 
| Function | 


—————Ó— -=- == == +4 


| DATCPY 


DEFCOM 


o 


EFMOV 


c 


DEFTST 


i3 


ಇ 


೫೪10 


hj 
< 
P 
o 


| 
| FV18 


ತ 
er 
er 
pee 
ಜಸ 
T 
| F2MOVE 


| 
| IEMEV 


| Moves second file statements associated with dictionary reference to| 
[output string. 


| Examines ADE references in second file; completes defined item 
[dictionary entry. 

CI text references to dynamically defined data. 

|Detects dictionary references which refer to dynamically defined 
| data. 

a second file reversing pointers. 

Initializes text scan. 

Scans text. 

Releases control. 

Processes ALLOCATE statements. 

rocesses PROCEDURE statements. 


P 
Processes BEGIN statements. 


f) 


'Cans AUTOMATIC chain. 


r 


Inserts D.R. of pointer in associated based variable entry. 
Processes adjustable extents on based array. 

Frocesses adjustable lengths on based strings. 

Moves second file statement to output string. 


Controlling scan of second file; invokes processing routines. 


þe m omaa a ee eet ee ಮ — — — —À — 


Moves text from input string to output string. 


io ae m ಸಾ — — M M —— — M A — —— — a — a À— ——— ರ a — SS — eee M — 
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Table FX. Phase FX Dictionary Attributes and Cross Reference 


ನಾರಾ ಮರದ ಶ್‌ ದಾನ್‌ ದ ಸಂಭ ಸಾ ವ್ಹಾ TIN CM te gg INL Se CALME CIC ನಾ ದಾನಾ ದಾದಾ ನಾನಾ S ಮಾ 


[Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
[scans STATIC chain for all items  |FX0000  . ruo] ^ ^ 71 
[Scans PROCEDURE-BEGIN chain | |FX0100 |FX0010, FX0101, FXO105, FX0120 | 
[Scans CONTROLLED chain for — [rxo370 — [Woe ^^ 71 


|non-parameter DECLARED, CONTROLLED | | | 
|dictionary entries | | | 
hd 
|Scans parameter list from PROCEDURE | ೫7010 | FX0010 | 
land ENTRY statements | | | 
aa nnn a $$ — nnn nnn nn nnn nnn —— nnn 
{Sorts BCD of variables and creates |FX0010 | None 

[entries in scratch text storage | 


| 

| 

~------------------------—---—--—- }--------------- }----------—-—------=-----=--------- 1 
[Scans circular chain of ENTRY | 82೭0105 | FX0101 | 
jstatement dictionary entries | | | 
| ೩55೦೦೩೩೬೮6 with a particular | | | 
| PROCEDURE statement | | | 
beh 
| Scans AUTOMATIC chain associated |7X0120 | FX0010 | 
|with particular PROCEDURE or BEGIN | | | 
| block | | | 
hl 
{Prints heading line for tables | FXHD | ATTMOV | 
jaccording to options specified | | | 
bh 1 
{Scans sorted chain of identifiers  |FXPRNT | FX0299 | 
E---------—- ~--~---——--------------- $-------------- ~}-----~---------~------------------- 1 
|Determines attributes of a given 18೫20299 |ATTMOV, FXBCD, FXDCLN, ೫೫೫೫೦೧, | 
jidentifier if the ATR option is | | REFMOV | 
| specified | | | 
bed 
| Scans the chain of references for al REFMOV | FXDCLN | 


jgiven identifier (if XREF is | 
|specified) and prints them in 
|external decimal form 


{Converts EBCDIC of particular { 
lattribute to required external form| 
land moves it to print area | 
4 
| prints BCD of identifier having | FXBCD | None | 
{converted it from internal form to | | | 
{external form | | | 
he ರಾರಾ ಕಾಕಿ 
Converts an internal binary number |FXDCLN | None | 
|to external decimal form and moves | | | 
lit to print buffer | | | 


—— ———————— nnn nnn nf € — nnn nd 


ATTMOV 


{Frees all scratch text storage and |FXEND | None M | 
|releases control to next phase | | | 
LL ವಿಮಾ ene ವವ ಅವಾ ಹಾ ವಾತ = 


100 


Table FX1. Phase FX Routine/Subroutine Directory 


gue rernm SUI ಸಾವಾಸ een MIU ee ವಲಾ ನಾನಾ ವಾನ್‌ 1 

| Routine/Subroutine | Function | 

}-----—------------ }—------------------—~------------—-------------------------—------ 1 
|Converts EBCDIC data to required form, moves data to print area. 


|ATTMOV (FY) 
| | 


| {prints. 


Le Cm ma ವ ವಾವ ಮ ವ ಎಮಮ ಮಾವಾ ಮ qais ma dir Ue dub ಮಮ ಅವನ ue dh Mp um AUD quus crm ಅವನಾ ಇದಾ: ಲಾಜಾ. EE DD MES ಇ ಐ ಪಾರು Re ಆವನು er A A ಮಯಾ acre ಬಂದರಾ EN cups 


| 
| FXBCD (FY) {Moves identifier BCD to print area, determines options to be | 
| | printed. | 
ae (FY) ರ binary number to external BCD, moves it to print area. | 
— (FY) ಜ್‌ scratch storage, releases modules, releases control. 
toca (FY) ಚಾ heading line for table according to options specified. | 
ಸಾ (FY) ae sorted chain of identifiers. | 
006 a STATIC chain. | 
ಹು T BCD of variables and creates entry in text for each item. l 
| 7x0030 leuia for end of STATIC chain. 
[zx0100 {Scans PROCEDURE-BEGIN chain. l 
od kan parameter list from PROCEDURE and ENTRY statements. 
| Fx0105 pues circular chain of ENTRY statement dictionary entries 
| lassociated with a particular PROCEDURE statement. | 
[zx0120 AUTOMATIC chain associated with particular PROCEDURE or BEGIN | 
| | block. | 
F010 eet CONTROLLED chain for nonparameter DECLARED CONTROLLED | 
| |dictionary entries. | 
PA seang text, making chain of references to each dictioary entry. l 
ಯ PORR attributes of a given identifier if the ATR option is l 
| | specified. | 
ತ್‌ (FY) images the references to an identifier to the print buffer and | 

4 


eTable F1. Module F1 Compiler Control 


qmm ne Ld — T^777-7-— —€—T mum ED re cues ee ಆಡಡಾ- WIS AME ie MNA CD es ewe UO ಹಾಸ UMP PUO CEP ಬಿರ MED crus n —— €—]—— 


| |Main Processing| | 


| Function | Routine | Routines Used l 
ee fo ho 
[Checks whether syntax check should |IEMF1 | ZABORT, ZUPL, RLSCTL | 
[terminate compilation | | | 
{Entry to the operating system: | | | 
| None | | | 
lians — EEE S Leases acsi p ಜವ | ——— —— ————— 3 
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Chart 04. 
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Chart GA. Phase GA Overall Logic Diagram 
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Chart GB. 
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Phase GB Overall Logic Diagram 
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Chart GP. Phase GP Overall Logic Diagram 
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| NO * NO 
.*. SUSUBS DEDONE ; 
F1 *. ಯ ತಗ ತ ಬ SORE EES 
.* +. * OUTPUT PRIOR * *SET POINTER TO + 
.* *. YES * TEXT. FIND be *START OF FIRST * 
+. ISUB .*--—------2* TABLE ENTRY *SUBSCRIPT LIST.* 
*. ಆ : ಜೀ : * QUTP REFCE + 
^ .* NUMBER * OF E ARRAY * 3 
eof 239,3 ATR hs POT ಯಗ ರು? 
* NO 
— 2 
DENEXT 
$9949G20699696499 $$99*GUs$9se995*9 
* OUTPUT bs abd * SUMOVE + 
* DICT REFCE Pe ee ee ee ಎತತ ಜಿ. 
+ OF TEMP O $d D1 : * OUTPUT $ 
* SUBSCRIPT * * *SUBSCRIPT, RE- * 
* teess * PLACING {SUBS * 
[ETT eT ರು 
* .*. 
1 we, Hy +. LEETE TLEEEEEE TESES 
an *. *59$H2€69299$441 .* ANY *. * 4 
16 BSc aes 24 RETURN : baal ಶೆ 1 IN. are ಆ ಟಾ ್ಸ್ಫ] 
om —— ----—-—--- AE 4 
ue nr * FIRST * FCR TEMIS * 
art a **59999995**595 .LI ST, * 
$. SHORE EHOET ORD TES 
E “fo 
]--— 
test 
* * 
* 21 * DEFETN 9. 
* * $*999jJUS**5s924995 J5 *. 
tst * * .* WAS >», 
* POP UP * YES, * THIS A *. 
* PARAMETER i ------ - CALL FROM .* 
d STACK *. SUK E oo 
PPO "a. out 
* NO 
RUTRUM ಜಮ ಜಮ ಬಸು Cen TEE NOS RR DESEE l 
tss 
* * 
* A2 * 
+ * 
ease 
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Table GA. Phase GA DCLCB Generation 


[Main Processing] | 


| Statement or Operation Type | Routine | Subroutines Used | 

— —— P —— í— — i — == === 
[Scans STATIC chain |IL0100 |ILO110, ILO120 | 
———————————————— ---—------—-- ~----—----------------------------| 
{Generates DECLARE control block | IL0110 |CHKATT, IHEENV | 
|entry | | | 
hh 
\Generates OPEN control block entry 1820120 | CHKATT | 


| SS mes em meen re ಹಾ alle eum À m e a e ಅಹಾ ಎತ ರಾ ಆಣ ಣಾ —— a ಇಷು ne m. 


Table GA1. Phase GA Routine/Subroutine Directory 


hum EP cmm ಖಾ ಮಾನಾ SS ಖಾನ SS AD ಆರಾ ND AUD SD ಜಾನ PS FS A ನಾ ಕಾನಾ SS DS SEND ಮನಾ MD ಆನಾ SOS ಆಹಾ ಆಜಾ AND ನಾ QUUD EES cuum GED emp ut ಉರಿ CUP ಆದಾ ಆನಾ GED Gum UM AUD QUID CUS EE GUD ಆನಾ FED ae ಆಹಹಾ ee ಆನಾ ವಮ ee uum ಬಾಜಾ ಉಫಾ, See Se | 


| Routine/Subroutine| Function | 
I SS ವು cnt ಶರ್ಟ 5 7 7 
ei SR environment options, and inserts them into DECLARE control | 
| | blocks. 
1220000 |Entry point from compiler control. | 
[20100 PM STATIC chain. | 
TRUE ‘onesies DECLARE control block entry. | 
1220438 [Test point for environment entry. | 
1320115 |Return point from environment processing. | 
1120117 ಜ್‌ file attributes entry. | 
loai S point of SYSPRINT file found. | 
| IL0120 |Generates OPEN control block entry. | 
(೩.053 ಟ್‌ control. | 
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Table GB. Phase GB Pretranslator I/O Modification 


|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
——— — — — M ———— === === 
{Removes all second level markers | Throughout: | None | 
| | phase í | 

-map anan an XP 4 eX an PD ಆಸಾ “ದಾರು ಇಮಾ ಇದರ ಆವಾ ದವಾ AED ಆನಾ ವಾಲಾ GE ವಾ GU GA ED uie ಇವಾ ಆನಾ ಜರು ವಾ ಮಾಲಾ ಇಮಾ ಲಾ ಪ್ರೋ ಇದಾ mme ee Gu OU QU ಎರಾ ORO Gn ಆ ಇದಾ Gi ಆವಾ ಆಹಾ ಇರಾ Ue ಆರಾ Th qa ಲಾ ಆನಾ ED ಆನಾ ಇವಾ ಇದು ಲಾ ಕಾ ದನಾ OD AD GR GR SO OOS ಆನಾ WOO] ಆನಾ ಆನಾ = aw: 4 
| ೫7೮೦೫೮೮2೨5 options to put EDIT, DATA |A8 [SCNS, SCAN2 | 
jor LIST last | | | 

— "m e» an ಅ ಆನು AD <a UD ake Uum que GD cum ಆಧಾ ಆನಾ ವಾ Gum ee p ae — ae —— —— ಲಾ a om ae im ಆ — ee ಆರಾ ಮಜಾ ವಾ oe E — ಲಾ ow GD —Á + eS AER ALD Go ಹಜಜ ರು ಅಜಾ ee ES ಅಜಾ CI EE ಎತ eo -----4 
|Moves DO specifications to precede |SCAN2 | LLDOIT | 

| 


|relevant list in data lists, adds | 
|END statements | | | 


}------------~----------------------}---------------} -----------------------------------+4 


|Expands iteration factors in format|FORLST | None | 
[lists | | | 
OO —Ó—— M ÓÓGÓ 
[Checks for use of COBOL files in [A8 |LOCATE, READ, WRITE, DELETE, MAP, | 
{READ, WRITE, and LOCATE Statements | | COPY, STSCAN | 
(ಟು ತಮ ಹುರುಪು ವಾ ಕಾವಾ ಎ ಜಾ ತಡಿಯ ವಸವ D ———— PH —À—— J 
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Table 68%, 


Phase GA Routine/Subroutine Directory 


{Routine/Subroutine| Function | 
|AFORMT ಯಂ ತೋ Osa ಖಾ ಪಾರಾ | 
Ne ಜಾ for use of COBOL files in READ, WRITE, and LOCATE statements. 
lae |Scans source text for GET and PUT statements. 

ee — options to put EDIT, DATA, or LIST last. 

[೩21 |Scans GET or PUT statement for data specification. 

[corr (GC) ಇಟ a structure and places the copy on the COBOL chain. Sets up 


DELETE (GC) 


"j 


ORLST 


N 


F 


F 


n 


F5A 
F6 


126 


» 


F6 


ಹ 


F7 
LAB17B 


LLDOIT 


LOCATE (GC) 


= 
D 
'g 
~ 
& 
ಒದೆ 


KROOM 


ಯ z Xx 
ಯ 


EAD (GC) 
SCAN2 


CNS 


TSCAN (GC) 


o uo 


[WRITE (GC) 


[text skeletons. 


|Removes an offending I/O statement and inserts an error statement in 


[the output text. 

{Expands iteration factors in format lists. 
[Creates and buys integer temporary. 

[Scans and outputs format item. 

T temporary. 

|Tests for end of format list. 

[Tests for end of format specification. 
ಜ್‌ end of format specification. 

{Scans format list. 

| Processes format list in GET or PUT statement. 


[Moves DO specifications to precede relevant list 
|END statements. 


in data lists, 


|Checks for the use of a COBOL file, and puts out a warning 


| diagnostic. 


| 
| Compares the PL/I and COBOL and PACKED (NONSTRING) mappings of a 


| structure. 


|Provides space in a statement in new source file. 
|Initializes text blocks and pointers, and obtains scratch storage. 


[If a READ IGNORE is encountered, no action is taken. 


lis encountered, a warning diagnostic is given. 


[structure is encountered, PL/I and COBOL mappings are compared. 


[Scans option list for end of option or statement, expands DO 
|specifications, and changes certain function markers into 


|pseudo-variable markers. 


[Scans option list for end of option or statement. 


| 
[Stores the dictionary reference of the file and the 7870/880೫ 


|variable, and sets flags. 
| 
| 


|For structures, the PL/I and COBOL mappings are compared. 
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If a READ SET 
If a READ INTO for a 


adds 
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Table GK. Phase GK Pretranslator Parameter Matching 1 
po-—---—---—--—-————--—————————————————q-————————————p--——————————————————————————---- 


|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
— — —  — ---------------} -—-------------~-------------------4 
{Scans source text for function | BASCAN |CPSTMT, CRSTMT | 
[markers | | | 
pra nnn nnn nnn nnn nn nn nn nnn nnn nnn nnn nnn nnn nnn nnn nnn nn an nnn nnn nnn nf 
|Processes function, puts out | BAFM | SCANRP | 
|reference and initial code bytes | | | 
}-----------------------------------}---------------}-----------------------------------4 
|Processes arguments | BALOOP |ADDTGT, SCNCRP | 
aa ana a nn ne nnn nn nnn nnn nnn nnn ann nnn nnn ad: 
[Checks numbers of arguments |ARGNOQ . | None | 


Table GKi. Phase GK Routine/Subroutine Directory 


| Routine/Subroutine | Function | 
ರಾರಾ 
JARGNOQ {Checks number of statements. 
anes |Tests for STOP marker. 
emer [Outputs function and first bytes of argument list. 
ಹಿ ಸ for end of argument list. 
sx | Processes function, puts out reference and initial code bytes. | 
ok yer |Locates SETS list and parameter list for function. 
ಹ ನ arguments. | 
oe |Tests whether argument list is present. 
eee {Accesses next argument in list. i 
TARNA [Sets STOP marker to scan argument. | 
aina EM pseudo-variable. 
expec [Tests for nested function reference. l 
| BARGER ಜಟ warning message. | 
ONE [Scans source text for function markers. | 
ಮ್‌ M argument. | 
ಉರ್‌ | adds closing bytes of a statement to output text. | 
| CRSTMT [Adds first bytes of a statement to output text. 
eae 15೦೩೧5 argument list. : 
SCNCRP {Scans argument. | 


| 
ಎಡ ಸತು 
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Table GO. Phase GO Preprocessor Parameter Matching 2 


Go ee ee ee De ರಾದಾ een ee ee ee ee ದಾದ ಈ 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
mmc }--------------- }----------------------------------- { 
{Initialization and scratch core | PMATCH | POLYMV | 
[utilization for Parameter Matching | | | 
|2 l | | 


Cn ee ee as ee wr ee es cree ಆಜಾ ee re ಅಣ ಚ me en em mm ಯಯಾ oe em ame ——————XÀ 


Table GO1. Phase GO Routine/Subroutine Directory 

|Routine/Subroutine| ಸ  Functio 4 
hauc  — ' eener in dedadigation CE utilisation toc varameter. | 
| l |Matching 2. | 
| POLYMV ous the routines POLY1, POLY2, POLY3, POLY4 and POLYS into —S 


| | 5೭೦೭೫೩೮೮ (see Table GP). | 
ಓಯಾಸಿಸ್‌ ಯದ ಮು ಸರ ಸೂಚ E P RD J 
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Table GP. Phase GP Pretranslator Parameter Matching 2 


ಫ್‌ ಟ್‌ ಕಕ SM EE DL ED EM C ea qoe neque uendere ಕಾಣ mes ವವ 1 

|Main Processing| | 
| Statement or Operation Type | Routine |. Subroutines Used | 
NN nnn nnn wn nnn nnn nanan nnn nn nn A nna =f 
|Scans text for procedure and |BS1 |ADDTT, STKINF, UNSTCK | 


{function calls 3 | | | 


Oo ee ae ಣಾ ಹಾ ee ee —Ó—À—————————————————---j-----—----————-—-— -————------—--—-—-------------------—--4 


{Examines argument lists for |Bs4 . | EXSCAN, M1, M4, M16, SCANFR | 
| expressions | ' ||] l | 
[Creates temporaries for scalar [M16 |ADDTT, COPYTP, MKDCEN, SETBUY | | 
jexpressions and constants | | || 
—  —— n n —: i! — I —— € t MÀ P— n n. 
|Creates temporaries for array | E2 l | ADDTT, CHCKB1, COPYTP, MKDCEN, | 
jexpressions | | SETBUY | 
bo 
|Creates temporaries for partially 123 | ADDTT, ೮೫೦೫೫, ೮೦೨೫7೫, ೫೫೦೦೫೫, | 
jsubscripted array expressions | | SETBUY | 
ah it Sk a a hl mes a i et A SS SS 
[Creates special temporaries for | EX16 | ADDTT, BS2, CHCKB4, CHECKT, COPYT1, | 
|partially subscripted arrays | | MKDCEN, STKINF, UNSTCK, 211, | 
GENE I j | SETBUY, SETMT [ 
~----~---------------------------- }--------------- }----------------------------------- 1 
[Checks single arguments (except | M4 | CHECKT, M16 | 
| structures) with parameter | | | 
[descriptions | | | 
an u— — ate ಆಹಾಹಾ ee ee ಜನಾ ಆಜಾ ee — eee ee A — ee ee ee ee ee ಹಾ ee ee eee eee ಹಾಸು: cae ee ಸಾಪ Sue CUR asta EER qumgy ಉದ A SS dio xam ವಾಸಾ A URP ರನ್‌: ಟಾ es ಬಾಡಾ pO Para ರಾ get a teen ge gt ಭಾಸ ee ಕಾ ಜಾನಾ ನಾ 4 
[Checks single structure arguments  |M5 | CHECKS, CSTTMP | 
po 
[Creates temporaries for structure |M21 ^ |CSTMP2, MKDCEN, CHCKBU, SETMT, | 
| expressions | | ADDTT | 
|Creates temporaries for partially 1222 |[BS2, ADDTT . | | 


|subscripted structure | I | 
bod 
|Compare the two arguments of the |POLY1, POLY2, |BS2 
| POLY function and create |POLY3, POLY4, | 
|temporaries if the arguments are {POLY5 | 
| 7೦೬೭ both floating and do not have | d 
{the same scale and precision | | 
| ---------—----- === - === = == = $= === = fon nnn nn nnn nn nnn nn nn nn nn nnn nn nnn nnd 
|Creates special dictionary entries |M37 | None | | 
|for generic entry labels used as | | l | 
{arguments | | | 


ರಾಜಂ ಹಜಜ a ee BUE a RUE 
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Table GP1. 


| Routine/Subroutine| 


Phase GP Routine/Subroutine Directory 


Function 


rn rn fr ರಾರು rrr rr rn rn nr ಕಾರಾ rn tn tn tne + | 


|ADDTT (GR) 


| 
1853 


1852 
ಚ 
[8810 
[2633 


| 
| CHCKB1 


CHCKB2 


HCKB3 


Q 


Q 


HCKBU 


HCKS1 
HECKB 


ECKS 


೧ ೧ ೧ 


E 


HECKT 


OPYTP 


೧ ೧ ೧ 


OPYT1 


| EXSCAN 


(GR) 


(GR) 


(GR) 


(GR) 


(GR) 
(GR) 


(GR) 


(GR) 
(GR) 


(GR) 


| 
|CSTTMP/CSTMP2 (GQ) | Create temporary structure dictionary entries. 


(GQ) 


|EX16 (GQ) 


|EX36 (GQ) 


| 
182 (GQ) 
| 
|E3 (GQ) 
| 


| MKDCEN 


| 
1೫1 (GQ) 
| 
1೫2 (GQ) 


[M5 (GQ) 


| 
1೫5 (GQ) 


{M6 (GQ) 


(GQ) 


| 
1810 (GQ) 


LL SL E ಕತಾ ವಾಸ E E ee ಒತಿತ 


[Adds text to output block. 
| 


|Scans input text. 


[Scans input text. 


|Examines argument lists for expressions. 
| End- of-program routine. 


[Tests for constant argument. 

| 

|Compares the bounds of argument and parameter arrays, and creates 
[new dimension tables for temporary arrays. 

| 


[Compares the bounds of argument and parameter arrays where the 


[argument is partially subscripted, and creates new dimension tables 


|for temporary arrays. 


[Creates a new dimension table from a parameter description. 


l 
[Creates new dimension tables for partially subscripted array and 
[structures. 


|Compares the structuring of argument and parameter structures. 


[Compares the bounds of argument and parameter arrays. 


| 
[Compares structuring and data types of argument and parameter 
| structures. 


| Compares data types of arguments and parameters. 


[Creates a temporary dictionary entry from a parameter description. 


[Creates a temporary dictionary entry for a partially subscripted 
jarray from a parameter description. 


|Scans expressions for arrays and structures. 

{Creates temporary arrays for partially subscripted array arguments. 
|Creates a chameleon dictionary entry. 

[Creates temporaries for array expressions. 

[Creates temporaries for partially subscripted array expressions. 
|Makes dictionary entries. 

|Examines argument expressions. 

|Examines single arguments with parameter descriptions. 

canoes single arguments with parameter descriptions. 

|Examines structure arguments. 


[Tests for structure parameter. 


| Processes subscripted variable argument. 
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Table GP1. Phase GP Routine/Subroutine Directory (cont'd) 


|Routine/Subroutine| Function 

[UTE ay ಭೌ ಚ ಮ್ರ ಲ್‌ LEE 
"E (GQ) laeta BUY text. 

uis (GQ) | Processes scalar argument. 

Ime (GQ) [Creates temporaries for scalar expressions and constants. 
lios (GQ) [Creates temporaries for structure expressions. 

[122 (GQ) {Processes data item parameter. 

ee (GQ) ES label parameter. 

lis (GQ) jCreates a structure temporary. 

lus? (GQ) [Creates dictionary entries for generic entry labels which are 
| | arguments. 

fid (GQ) eset routine. 

i (GQ). NS dimensioned scalar argument. 


| 

| 7೦೭೪1, 2೦೩೫2, 
|POLY3, POLY4, 
|POLY5 (all in GO) 


| 
| SCANFR 


| SETBUY (GQ) 


| 
| SETMT (GR) 


| 
| STKINF 


| 
| TESTC 


| 
| UNSTCK 


| 
1213 


222 


pt — — — — 


178 


(GR) 


(GR) 


|Check the arguments to the POLY function and generate code to buy 
|temporaries, if the arguments are not both floating and do not have 
|the same scale and precision. 


| 
|Scans for matching parentheses. 
| Inserts skeletons to buy temporaries in the output text. 


{Sets temporary dictionary references in MTF compiler functions for 
jarcay and structure bounds. 


|Stacks information on encountering nested functions. 


[Tests for constant argument. 


. |Unstacks information. 


| Generates text to set up the dope vectors of partially subscripted 
{array temporaries. 

| 

{Generates text to assign the structure subscripts of partially 

| subscripted structures to temporaries, and then to set up the dope 
| vector for the partially subscripted structure temporary. 


Ce —— — ಅವನಾ, — PS — — A TE -p ene GP AMD aum cna UND "END RED ಆಹಾರ GM GER es ಆನೂ ee QUUD UD ಇಸಾ AMD ee ಬಾ ee ಆನಾ ಆನಾ ಭಾಯಿ ನಮಾ ee ani ಮಾನಿ ಪಾತಿ ವಾ ಮಾಮಾ ವನೂ ಆನಾ ಬಾ QUUD ಮಮ duum ಆ ಇವಾ ಜಾಮಿ ಆದ am um VU ಲಾ UD m ಉನಾ "P ದವಾ n ಜಾ ದಾ 


Table GU. Phase GU Pretranslator Check List 


|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
———— — — mmm 
| 5೦೩7೮5 statement; checks if | BSCAN | CALL, LIST, MOVE, SUOPQ | 
|preceding SIGNAL statement is | | | 
| needed | | | 
| -----~-- ----—-- -------- -- -=------ ==} +--+ nf nnn nn nn nn nnn nnn nn nn nnn === 
|Scans statements; checks if | ASCAN | None | 
(following SIGNAL statement is | | | 
[needed | | | 


wanna == $= == $$ = nf nnn nnn n-nonane n-ne nnn nnn 
|Provides a SIGNAL CHECK statement |CALL | GENTST | 
—— —P—M— P: —— nnn enn nnn nnn nnn nnn nnn 4 


[Searches list for checked items |SUOPQ |CALL, LIST | 


a cr a a ce ae ee as ee ಸ ee a ca ae ce ee ne ee we ee hoe ರು ee ಅತ re ee ee er ee eh, ee ae ee re ee ಯೊ ಅ ew | 
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= GU1. 


| ABGNDO 
las 
re 
pee 
at 


| 
| ASPECL 


| 
| ASTMT 


| 
|ATESTU 


| 
|ATEST5 
| 
|ATST3 


| 
| BENTON 


| 
| BPC 


| 
| BSCAN 


| 
| BSTMT 


| 
| BTEST3 
| 
| BTESTG 


| 
| BVARNO 


| 
[CALL (GV) 


CATER 
loses 
re 
peer 
ee 


| 
1628757 


(೧೪) 
(೧೪) 
(GV) 
(GV) 


(GV) 


| 
| LIST (GV) 


| 
| MOVE 


| 
[50೦೨೦ (GV) 
wee ಅಣು € ons a — € ಆತಾ ಅಜಾ ae to» e a eae We ee eo eee wo ee MM ee ea Se See —J————————Á— 
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Phase GU Ns Directory 


| Sets IF-switch for THEN or ELSE clause. 
| 


|Signals checked items in argument list. 
|Tests statement identifier and takes action if necessary. 


| Scans statements; checks if following SIGNAL statement is 


| Examines statement dictionary entry. 


|Examines statement dictionary entry which is not a label. 


[Housekeeping for end of statement. 


[Tests for argument list. 


| 
{Tests for THEN. 


|Tests for end of statement. 


|Test whether argument list contains checked item. 


| Processes 


"possible check" statement. 


required. 


[Scans statement; checks if preceding SIGNAL statement is required. 


|Tests whether SIGNAL statement may be needed after statement output. 


{Tests for end of statement. 
|Tests for argument list. 
[Tests for END statement. 


| 
|Outputs SIGNAL statement for checked item. 


{Tests whether SIGNAL precedes or follows statement responsible. 


|Exit from subroutine CALL. 

{Tests whether DO statement must be output. 
ಜ್‌ ಚ overwritten statement after NO statement. 
ಚಟ SIGNAL statement. 

ಚ್‌ space in output text block. 

|Updates and searches list of currently checked items. 


{Moves text from source to output. 


| Searches list for checked items. 


Tabie HF. Phase HF Pretranslator Structure Assiqnment 


ತಾತ ಪಜ eee ee en ee eei ea er oe ವಾ್‌ ತ Ot a ಕಟ ಪ ee es SN ee ee eee 
| [Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
bee hc - 1 

 |Scans text for structure assignment|MR | BYNAME, GENTST, LSTSCN, MOVE, 
{Statements, regions of nested | |NSTSCN, STRASS, STREXP, STRURE 


[Statements, output list | | 

jexpressions, and structure | | 

{references in input lists | | 
—————— J— —  ——— ----------------------------------- 
|Expands structure assignments and |BYNAME, STRASS,|DVCON, GENTST, LSTSCN, MOVE, 
jexpressions into a set of scalar |STREXP, STRURE |NSTSCN, SBGN 

|assignments or expressions 

| corresponding to the base elements | 
lof the structure operands. Where | 
[the base elements are arrays, the | 
|corresponding component expressions| 
lor assignments are surrounded by | 
lappropriately iterating DO groups | 
————— -————-—-—--L4-.-----------—---- ——————————— ee ಅಹಾ 
[Scans regions of nested statements |NSTSCN | MOVE, NSTSCN, STRASS 

{for structure assignments | | 


me ae ಆತಾ ಆ —Ó — — ಡಾ 


{Determines space availability in an|GENTST | MOVE 

[output text block | | 
———Á——— Á—— —————— —— =f 
[Scans function argument and | LSTSCN | MOVE, NSTSCN | 
{subscript lists | | | 


— — eee 


+ + 

{Constructs DO statements and checks|DVCON | 

{bound equivalence | | | 
i 
| 
| 


{Constructs subscript lists for | SBGN 
[references to dimensioned structure] . 
| base elements | | | 


Lhd 
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Table HF1. 


Phase HF Routine/Subroutine Directory 


[umma ನಿವ ಪಾ inm EMEND ಎಂತಾ AUS COD AMD VD qUA ED ಅದಾ ಆನಾ ಲಾ AUD AED AUD ಆನಾ GUD GU GRO 4D RUD GUD ED UA ಇಸಾ GR cn GR GR UO qup UMP GUD GUD UND UD umb ವಾ ಲಾ ಲಾ Cu ಆರ cmm uum OSS ಆನಾ ಲಾ ವಾ SSS ಯಾ ಆಧಾ ಆಯಾ ಲಾ ಜಹಾ COS nO Ue ಇದಾ ಆನಾ = 1 


- [Routine/Subroutine| 


| BYNAME (HG) 
lavi (HG) 
aor (HG) 
pee (HG) 
ಹಃ (HG) 
ಕಚ್‌ 
ಟ್‌ 
letach 
[152 

[1523 

| MOVE 


i 
{MR 
| 


oe 
lino 
456% 
pee (HG) 
| sss (HG) 
er (HG) 
eerie (HG) 
ren (HG) 
೩320 (HG) 
I (HG) 
5336 (HG) 
(73 (HG) 
{5479 (HG) 


| 
| SBGN 


| 
|STRASS (HG) 


| 
| STREXP (HG) 


| 
| STRURE (HG) 
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Function 

|Expands BYNAME structure assignments. 

| Searches for matching BCDs down to base elements. 
[Returns to start of current output assignment statement. 
Does for matching BCDs. 

{Constructs DO statements, checks bound equivalence. 
[Determines space in output text block. 

aes for GET statement. 

[Scans subscript arguments and subscript lists. 

[Tests for structure item in data specification. 

[Tests for data-directed data specification. 

|Adds text to output string. 

|Scans text for structure assignment statements, nested statements, 


[output list expressions, and structure references in input lists. 


|Tests for BY NAME assignment statement. 


[Scans source text for structures. 

TE regions of nested statements for structure assignments. 
|Builds up stack to show pattern of structure. 

[Tests whether END statements need to be output. 
es dictionary reference found. 

{Scans structure expression or assignment. 

|Tests whether item matches the stack pattern. 

{Tests for start of structure expression. 

[Outputs base element and replaces it in source text. 
ieee for BY NAME assignment statement. 

[Outputs END statements. 

poe scan pointer to start of expression/assignment. 


[Constructs subscript lists for references to dimensioned structure 
| base elements. 


| 
| Expands structure assignments into DO loops. 
| Expands structure expressions. 


{Expands structure references. 


Table HK. Pretranslator Array Assignment 


| [Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
hod 
[Scans text for array and scalar | MR | None | 
jassignment statements | | | 
}~------------—--------------------- i------- -------- }----------------------------------- 4 
[Scans text for nested array and | MR | NESTAT | 
[scalar assignment statements | | | 
—— ——— —— naQ hh 
|Scans text for array expressions in|MR | ARRASS, LSTSCN | 
|I/O lists in GET and PUT statements| | | 
mm ನ GER ಚಾ cus ದು amem mas ಜನು GET ಆ ಬಾ ಜೂ ಸಾನು CHED ಲಾರಾ CMM NU ಎಂಟ ಹರಾ ಭಾ GEN. ಬಾ quas ಬನಾನಾ OUED ಇವನಾ dyes ಇರಾ ಜಾ HP ಇವಾ ಪುಷ್ಯ ಅನಾ GER 
| Expands arrays into DO loops and |ARRASS |FRETMP, MDE, OPTST, SLGCH, SUBSKP | 
| 5೦೩3೩೫ assignments; checks | | | 
{dimensions and bounds | | | 
Table HK1. Phase HK Routine/Subroutine Directory 
la ic ಕಾವಾ ST aE a a a ವರಾ a aa C E laa aa i ಹ. 
| Routine/Subroutine| Function | 
—— ape 4D m Pa ಅಧಾ ಬಿಮಾ ewer (UD eae AED UP aa ——————————-—————————————————————————————————————-—-——-—--------------—--4 
| AADOP (HL) | Examines leftmost operand. | 
| | | 
| AAMULA (HL) {Tests for multiple assignment. | 
| | 
{AA3 (HL) [Checks pseudo-variables. | 
| | 
|AETRT (HL) |Scans array expression. | 
| | | 
JARRASS (HL) | Expands arrays into DO loops and scalar assignments; checks | 
| {dimensions and bounds. | 
| | 
|ARREXP (HL) [Generates DO loops and subscripts for array references. | 
| | | 
[ARRIN (HL) |Entry point for array expressions in input lists. | 
| | 
|ARROUT (HL) {Entry point for array expressions in output lists. | 
| | 
| FRETMP {Generates a SELL statement for temporaries bought in the current | 
I | statement. | 
| | 
| LSTSCN [Scans I/O lists for possible array expressions. | 
| | 
[MDE [Makes a temporary dictionary entry. | 
| | | | 
{MR | Scans text for array and scalar assignment statements, for nested | 
| [array and scalar assignment statements, and for array expressions in| 
| |GET and PUT statements. | 
| | 
| MREOP [Tests for end of text. | 
| | | 
| MRTRT {Scans text. | 
l | | 
| NESTAT | 5೦೩7೧೮ nested statements. | 
| | | 
|OPTST [Tests any given operand. | 
| | 
[ SLGCH | Generates and checks subscript lists. | 
| | 
| SLMCG | Inserts subscripts in expanded array position. | 
| | 
| SUBSKP {Skips a subscript or subscript list. | 
ಕಾರಾಯ ಸವ ಹಠ ಹಾಹಾ qa ಹತವ cM MET AM uM nm aired 
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Table HP. Phase HP Pretranslator iSub Defining 


| Statement or Operation Type | Routine | Subroutines Used 

fro rr nnn rr rrr rrr rn -— — apan D ere ವಾ ಲಾ ನಾಲಾ ew ae ——— — — — — M a ಲಾ ee QUUD AED GERD um) ue VEND ಲಾ ದವಾ EM ee ee oe we 
[Scans source text for references | MASCAN | MOVE 

|defined by iSUB | | 
}--------~-------------------------- }---------------} ----------------------------------- 
|Processes references defined by | DEFSUB | GENTST, MOVE, SULIST, SUMOVE 

| isUB | | 
}----------------------------------- }--------------- }----------------------------------- 
{Scans subscripts | SUMOVE | None 


Table HP1. 


|Main Processing| 


| (in SULIST) | 


Phase HP Routine/Subroutine Directory 


| 
| 
J 
1 
| 
| 


| 
| 
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l 
| 
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Function 


————————Á——— — — —— ಾ ತ್ತ 
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m 
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ಚಟ್‌ 
ಟೂ 
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ಜು 
ಚರ 
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nen 

| 
ING 

ane 
ಜಟ 
ere 


| 
| SUSUBS 
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|Resets pointers to scan first subscript list. 


[Creates and buys temporary. 


|Processes references defined by iSUB. 

[Tests for end of second subscript list. 

[Outputs first-list subscript and tests for end of list. 

|Tests whether dictionary reference is constant or integer variable. 


|Stacks parameters for recursive entry to DEFSUB. 


| 
{Returns to MASCAN or SUSCAN. 


[Tests whether second-list subscript is simple dictionary reference. 


[Checks space in output text block. 
i 


{Initializes text blocks and pointers, gets scratch storage. 


{Scans source text for references defined by iSUB. 


|Moves text from source to output. 


|Scans subscript lists. 


{Scans subscripts. 


[Scans subscript. 


{Replaces iSUB by corresponding subscript or temporary. 
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Chart JD. Phase JD Overall Logic Diagram 
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Table IA. Phase IA Translator Stacker 


[Main processing] | 


| Statement or Operation Type | Routine | Subroutines Used | 
neces ese EELS 
| cupis Gcanetececcon — 7 [EACTNC — 18೦00 to EC10 = ಸೊ 1 
coe eae ee S, |EACTNS ಯಯ |ES00 to ES2E = | 
| a ^ [BEER ರ್‌ [EGENR2, EGENR3, ENEWBL, ENOREP, | 
| | | EREPL, ETRBMP - | 
EEA — eee A SSS LE a EE E REE EE EEE 
Table IA1. Phase IA Routine/Subroutine Directory 

|Rowtine/Subroutine| Function | 
[pcne CO €8 ನ ಟರ ರ್ಸ್‌ ್‌ಾೂ್ಮ್ಮ 
EN ea transfer vector. 

|ECOO to EC10 | Provide comparison action for each operator. 

೫3 ಜ್‌ triples. 

| EGENR2 ee triple for top stack operator, with blank first operand, 

| |then deletes the operator from the stack. 

| EGENR3 ಹಪ triple with two blank operands. 

| ENEWBL |Obtains and chains new text block for output, resets output pointer. 

ಜ್‌ ಘಾಟ top stack operator, flags new top operand as the result of 


|the triple just generated. 


Le uu ame — a— EE SE e ED a eee ED amm ED ED uuu <P gue GE SE ED ES ames SN ce ED auae ED aum cmm 


| 

| EREPL |Replaces top stack operator by its prime, to indicate end of a list 
| jof function arguments or subscripts. 

l | 

| ESCAN | Scans source text. 

| | 

| ESTCAC | ೫3೩೦೧5 operand in stack. 

| | | 

|ESO00 to ES2E |Handle stacking of operators. 

| | 

| ETRBMP |Increments output point over one triple if end of text block is 

| | found. 

EEE DEM UR SR NS [SUMMAM CIC MU D ea aac 
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Table IG. Phase IG Translator Pre-Generic 
SSS SS es ee Se ರಾನಾ a ಫು ಬಕಾಸುರ ಘಟಿ meum masque a aaa 1 
| Main Processindl | 
| Statement or Operation Type | Routine | Suproutines Used | 
}-+---------------------------------- }--------------- }-~------~-------------------------- 1 
{Scans text for BUY aggregate 1651 |FR, BR, TRF1, GS12 | 
{argument dummies, end-of-block, and| | | 
|end-of-program triples | | | 


hd 


lobtains next text block 16512 | None | 
}----------------------------------- }--------------- hee 4 
|Transfers text to output block {TRF1 | None | 
se eg ಯಾರಾತ pt TUS ಯಾ ಯಾ ec A SL SSSR ELS es 4 
[Transfers text skeletons to output |TRF2 |GS1, TRF1 | 
ಮಾ ಮವ A — ——— — — al a a et ರಾವವ J 
|Stacks and unstacks information on |FR, FRP | None | 
lencountering function and function | | | 
{triples | | | 
-~---------------------------------- }--------------- }$----------------------------------- 4 
| Inserts assignment statement for | BR |GS1, TRF2 | 
(aggregate argument dummies | | | 
ISR NA ANE ES SEN SE NE ES. SS ee CN SS OE SE EE | 
Table IG1. Phase IG Routine/Subroutine Directory 
posee mE quce Temm TT DRY 
[Routine/Subroutine| Function | 
| --------- —----- -- = «— — — nnn nnn nnn nnn nnn nnn nn nnn nnn 1 
| BR jInserts assignment statements for aggregate argument dummies. | 
| | | 
| BRL |Transfers point for IGNORE triple. | 
| 
| BR2 |Inserts assignment into text. | 
| | 
| BR3 |Makes new dictionary entry for temporaries. | 
| | 
| BR4 | Processes second BUY. | 
| 
1೫೧, FRP {Stack and unstack information on encountering function and function’ | 
| | triples. | 
l : l 
|GS1 {Scans text for BUY aggregate argument dummies, end-of-block, | 
i |end-of-program triples. | 
| | | 
|GS12 {chains to next text block on encountering an end of block marker. | 
| | | 
| TRF1 [Transfers text to the output block. | 
| | | 
| TRF2 |Transfers text skeletons to the output block. | 
ಹಿತ ಎ ಾಮಿಯವಿವುಸಾ ತಾಜಾ ತಾ pM EE REE: —— ee ee i ig SO ct aah Ea TOC 4 
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9 Table IK. Phase IK Translator Pre-Generic 
Fn roan rm am me ma mms me mae aa ne on a a a A A em ತಾ 
| |Main Processing| 
| Statement or Operation Type | Routine | Subroutines Used 
|lInitializes phase and obtains text TENTER tae 
|block storage for routine GNEOP | | 
| (called by main generic phase), for| 
[translate table SCTRT used by the | 
|expression analyser and for nested |: 
| function stack | 


| + 
| Moves routine GNEOP, and table | MOVETT 
|SCTRT into text block storage | 
|Loads Phase IL and transfers | LOADIL | None | 
jcontrol to it LE. | | 


be ee ee we SL eh ee ee ed 


: 
| 
| 
4 
| 
| 
| 
| 
| 
| 
4 
| 
| 


e Table IL. Phase IL Translator Pre-Generic 


ಗ್‌ ನಾವಾ dix PU I M ತ್ಯಾ CL CC Kr RM M MM IA ಫಫ ICM M ನನಾ ನಾನಾನಾ E, 
| [Main Processing| : ಕ | 
| Statement or Operation Type | Routine | Subroutines Used | 
"-"--——— H— —Q— — —————— 1 
[Initializes phase, qets scratch | BEGIL | None | | 


{storage and sets pointer to | l | | 

{function table | | | 

ES NN 2 fone ದರದರ === 

{Moves function table into scratch |BASROU | None | 

| 5೭೦೫೩೮೮ and sets pointer to nested | . | . | 

| function stack area | 

SRE Sq TE KL SESS + 

{Loads modules IM and IN and sets | 

|base for expression analyzer code | 

po ——— SS SN 

[Gets text block storage for use by |GETEXT | None | 

{Phase IM. Sets pointer to it. B l 

| Moves constants into scratch | 

|storage and sets pointer to first | 

|constant. Transfers control to | 
| 
1 


fp os cues ame mn 


Table IM. Phase IM Translator Generic 


Fm —— ——— yn ನಾ a ee am a A A ಇದು ee ee EE Se cee ಅಂಡು ಆರಾ ಸ 


1 
|Main Processing| i | 

| Statement or Operation Type | Routine | Subroutines Used | 
he 
{Selects function for processing | GNFUNC | GNXTRP | 
on a pn fn rn er rr rn nnn nef 
{Selects generic procedure | GNPLIG | GNDRTA, GNXTRP, GNFMID | 
[Selects generic Library routines;  |GNBIFH |GNARID, GNCBEF, GNCACI, GNCTBI, | 
{determines function result | | GNGNCR, GNPRSC, GNSACH, GNSAPC, | 
| l | |GNSBAR, EXPANL, GNSAPR, GNSBRT, | 
| | | GNSFMS | 
wa n= ಬರದದರ ರಾದರು ರಸದ — naan — nnn nnn Qa TÓÍ——  — nea 
|Seiects chameleon dummy and inserts|GNCHAM | GNXTRP, EXPANL | 
jit in relevant dictionary entry | | | 
}----------------------------------- }--------------- }~-------------------------------—- 1 
[Controls scan of text -- branches |EXPANL  |ARITH, LST1, SUBSPT, ASSIGN | 
[to processing routine l | | 
toe ee Le eb md 
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9 Table IM1. Phase IM Routine/Subroutine Directory 


| Routine/Subroutine| Function | 
[ARITA (IN) [calculates type of result of arithmetic operation (except *e), | 
{ASSIGN (IN) PA to calling phase with result. 

|EXPANL (IN) [Controls scan of text -- branches to processing routine. 

{|GNARID (IP) |Identifies argument of built-in function and converts it to valid 

| |type, if possible. 

[GNBIFH (IP) [Selects generic Library routine; determines function result. 

48808 (IP) ಸುರಾ relevant family member. 

{GNB16 (IP) SM up result type of a built-in function. 

[(GNCACI [Checks and converts a decimal integer. 

|GNCBEF |Standardizes argument code byte to a form for generic selection. 

| GNCHAM |Selects chameleon dummy and inserts it in relevant dictionary entry. 
| GNCTBI | f rom decimal to binary. 

| GNDRTAÀA E dictionary type. 

| GNEND eons pointers and branches to routine GNEOP in text block storage. 
| GNEOB SEN end-of-block marker. 

|GNEOP {End of program routine. Frees blocks and releases control. 

ಬಾನ (70) ಜಿ family member. 

| GNFUNC [Selects function for processing. 

{GNFOL pees for nested function situation. 

er loses up result type of a PL/I function. 

[GNFM3 (IQ) |Replaces original reference in text. 

| GNGNCR |General conversion routine. 

(GNLO6 (IQ) TNR entry relating to particular invocation. 

ro (IQ) S table of family member descriptions. 

{GNPRSC (IP) {Selects highest mode, scale and precision of variable argument list. 
| GNSACH |Performs special argument check. 

| GNSAPC |Calculates scale and precision of a function result. 

[SHORE {Procesos SUBSTR function and pseudo-variable arguments. 


4 amem ao ame ED cS ame SED ನ ಆದಾನು ನಂದು COMPE aum ED NS ಎನನನು MEER cS SND ಎವಾ UD ನಾನು END SEE SEND OE ರಾನಾ GNE ಅನಾಯ ಸಾನು RAD GE ಆದಾನು SD GERD SD cau cuum ED eS SE ಬಜಾನಾ m EP ಮಾವಾ SS cuum aa m SY Se ಅಘ ಕ ಕಾಚ 
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Table IM1. Phase IM Routine/Subroutine Directory (continued) 


1 
|Routine/Subroutine| Function | 
------------------ ————— P ————— ÀÀ 
| GNSBAR {Handles a subscripted argument. | 
| | 
|GNSBRT (IP) | Examines all three arguments of SUBSTR and calculates the resulting | 
| |type exactly. | 
| | | 
[GNSFMS (IP) |Replaces references to SUBSTR in text by a reference to another | 
| [entry giving detailed information about the arguments. Places a | 
| {description of the resulting string in the text. | 
| | | 
| GNTRID | 5೦೩೫5 source text. | 
t | 
|GNXTRP |Gets next triple. | 
| | | 
{LST1 (IN) {Calculates type and length of result of string operation. | 
| | | 
| SUBSPT (IN) [Adds type of array to stack. | 
ಓವ ಮಸ ನಹಿ ವದನ ವ ಹಾ ಮನವ cS 
Table IT. Phase IT Post-Generic Processor ; 
ss C MCCC NEC Ca ರಾಮರ CRM TNR, rS ತ MMC ML KE D M ಹುಡಾ DEL 
[Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
}~----------------------—-+---------}---------------} ----------—------------------------4 
{Scans source text | PGTXSC | 2೦703 , 7೧೫೦8, PGEOP | 
be 
[Analyzes type of function detected |PGFUNC | None | 
mh 
|Compietes function handling | PGFNCP | PGNEXT | 
bod 
{Detects ‘chameleon’ temporary | PGBUYS | PGBUY | 
|references and deletes BUY and BUYS| | | 
|triples where possible | I | 
bol 
|Deletes ‘chameleon’ reference in an|PGPASS | None | 
jassignment triple and alters the | | | | 
jargument triple to indicate an | | | 
{intermediate result | | , | 
}-----~-----------------------------} —— — -------- M a 
|Deletes all other references to | PGFNCM | PGBYAS, PGSELL | 
|'chameleon' temporaries where { | | 
[applicable | I | 
SSE EE RU RT ಎಸ ಎ le ವ ವವ ಸಮಾನತೆ 
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Table IT1. Phase IT Routine/Subroutine Directory 


(o> SS Se ವಾ:ಅವ — a ಪಾಸ ಆನಾ GE UD Me» uis UND GN UEM AED AS ಜಾ re ಪಪ ee ee ee ut m m -q 


| Routine/Subroutine | 


| PGASS 
ae 
pone 
ಜೆ 
TET 
ಜ್‌ 


| 
| PGFNCM 
| 


ಟು 
ಜರ 
TEA 
ಚಟ 
roars 


| 
[೨703 


Function 


[Deletes ‘chameleon’ assignments. 


{Processes ‘Buy Assignment‘ triples. 


| Processes BUY triples. 


| Processes BUYS triples. 


i 
|Deals with End of Text Block conditions. 


|Processes end of proaram marker. 


| 
| Replaces 'chameleon' reference by an intermediate result 
| applicable. 


|Processes function prime marker. 


{Analyzes function, and determines the type of processing 


|Gets the next triple in source text. 


|Processes SELL triple. 


[Scans text. 


{Determines action to be taken for a significant triple. 


where 


required. 


— aa ees M — — M — — — — cere — —— — M —— Se — —— — — — —  — ee ಜಾಣಾ —— 


Le Le ಹಾ ats ae ee ane ಆನಾ ಆಹ ಅಡಾ ಆ € ಆಣ ಆ ಆಹಾ ಅಹಾ ao —  — ae ದಾ €— ಅ 4 


Table IX. Phase IX Pointer and Area Checking 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used | 
[Nain scan routine SNe I TEST, ERASER o | 
Tabie 20 Phase IX koutine/subrodtiae ಗ Ct 
[Routine/Subroutin] ^ Function ME 1 
tos [0010 0 ರಾತ್‌ ತ 1 
on [Tests operands for pointer and area data types | 
[ERASER [Processes bad statements. | 
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Table JD. Phase JD Constant Expression Evaluator 


ಧಾರಾ ನಾನಕ್‌ ರರ ಕ್‌ನಾದಾದನಾಡದಾ MM RM LACE CIN CURA ee MM CM ILLE ELLA ವನ್‌ ನಾತ್‌ 

. [Main Processing| | 
| Statement of Operation Type | Routine | Subroutines Used | 
———— —— — ——— S AA E A 
{Initializes phase, gets scratch | INIT1 | None | 
| etc. | | | 
NS — — —— === - += = === ---- E 
[Scans text, for constant triples | SCANT | MORTXT, PREFIX, CONCAT | 
}---------—------------~----------- $--------------- }------------—---------------------- 1 
{Handles stacking/unstacking of | STAKOP | UNSTAK | 
| operands — | | | 


Table JD1. Phase JD Routine/Subroutine Directory 


| Routine/Subroutine | Function | 
Įconcar [Detects constant string operands, performs concatenation, makes new | 
| [disk entry, and puts ref. in a slot for stacking. | 
| INIT1 ಪ scratch core for the stack, initializes slots and switches. | 
| MORTXT . pe next text block, resets pointer. | 
| OUT |Puts out error message and aborts compilation if stack is not | 
| | emptied. | 
eens |Detects unary prefixed constant, makes new list entry and puts ref. | 
| jin a slot, for stacking. | 
| SCANT |Main scan routine. | 
| STAROP |Push down stack handler. | 
ಳು QN if stack is full, and if so, aborts. l 
ene TS entry from the stack. | 
| UPTXT ಚಾ text pointer. l 
PARTIDE [Releases scratch core and returns control to the control phase. | 


200 


Chart 06. Aggregates Logical Phase Flowchart 
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Chart JI. Phase JI Overall Logic Diagram 
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Chart JK. 


Phase JK Overall Logic Diagram 
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Chact JP. Phase JP Overall Logic Diagram 
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Table JI. Phase JI Aggregates Structure Processor 

ne mr mme nem quee eme ene ಮವ ae ಅನಾ ವಸೂ ಖಃ 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
n — — —----------} ---------------f ----- —— PM Lü— = === === === =f 
|To re-order the STATIC AUTOMATIC |SCANA | MAP, MAPA | 
jand CONTROLLED chains and to 
|process structures 


| | 
| | 
———— Ro }--------------- }----------------------------------- 1 
|To scan down the COBOL chain for | SCAN | MAP | 
[COBOL-mapped structures | | | 
me m— nnn nf nnn nnn nnn nnn nn nnn ann 
{To transfer items from the COBOL | RECHAN | None | 
{chain to the appropriate AUTOMATIC | | | 
| chain | | | 
nnn naan nnn nn nn nnn ——— nn nna nnn nnn — ——— ——. 
{To transfer control from IEMSI to {|TERMIN | None | 
| IEMJM | | | 
bol 
{To map COBOL structures | MAP | NXTRF1, NXTRF2 | 
-———-—-—---—---—------—--—---------------L4---—-------—----b---------------------------------——-4 
{To check non-COBOL structures for [MAPA | None | 
[constant length | | | 
————— nn }----------—--- —}-----—-----------------------------4 
170೦ find the next member of a | NXTRFI | None | 
| structure l | | 
~-—-------------------------------- }-~--------—---- E-——---—----——--------------------- 4 
|To find tne next element of a | NXTRF2 | None | 
| structure | | | 
be ಬಿ es CT RN MANOS Zr pc Ec alae SR 
Table JI1. Routine/Subroutine Directory 

ನಾರಾ | m ವಾ್‌ ನಾರಾ I MD ವಾದದ ee ee ee ನರಾವ್‌ ದವನದ 1 
[Routine/Subroutine | Function | 
—— ಅಕಾ — —— — nn nnn nnn nnn nnn nnn nnn t 
| MAP [TO map COBOL structures | 
| | l | 
| MAPA jTo check non-COBOL structures for constant length | 
) | 
{NXTRF1 [To find the next member of a structure | 
| | | 
| NXTRF2 |To find the next element of a structure | 
| | | 
| RECHAN |To transfer items from the COBOL chain to the appropriate AUTOMATIC | 
| | chain | 
| | | 
| SCAN i 17೦ scan down the COBOL chain for COBOL-mapped structures | 
| | ] | 
| SCANA {To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process | 
| [structures | 
| | | 

| TERMIN iTo transfer control from IEMJI to IEMJM 
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Table JK. Phase JK Aggregates Structure Processor 


Fe a NUIT EID ee EN, agin re aes ee ಪು ಕಾಸ ಬುಳು ಕ ವವ ವಮ ವಾ ಹವಾ ನ್ಯ 


| |Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
boheme d 
| Scans AUTOMATIC, STATIC, and | CHNSCN | ADRDV, CHKDEF, MKDVD, MKRDV, | 
|CONTROLLED chains | : | PROCDT, PROCST, SETBRF, TERMWS | 
bo }----------~------------------------ 1 
|Processes DEFINED items | CHKDEF |CMPIL1, INOBJ, PROCDT, PROCST, | 
| | | STBASE | 
NN OA O 
|Processes structures (calculates | PROCST |CMPIL1, INOBJ, ELSIZ | 


joffsets, multipliers, sizes, | | | 
jalignments and padding; generates | | | 
jobject code) | | | 


———————M—————— ~~ = + === == --------------] 


{Processes arrays (calculates | PROCDT |CMPIL1, INOBJ, LOADCN, SP54 | 
|multipliers and generates object | | | 
| code | | | 
| ann nnn ann nnn O nnn fn nn nn nnn nnn nn nnn} 
|Calculates storage offsets for | PS25 | CMPIL1 | 


ladjustable items in structures | | | 


—————M—À———— a ee ee ee ree ee ee a ee ee ——————————————————————————————---4 


{Calculates storage offsets for | ALVACA | CMPIL1 | 
jadjustable arrays | | | | 
|Calculates storage offsets for | ALVACI | CMPIL1 | 
jadjustable strings | | | 
|Generates code to initialize string|SVARY |CMPIL1, INOBJ, IPDV, VOBJC | 


|dope vectors for arrays of varying | | | 
[strings in structures | | j 
pee et 
|Generates code to initialize string|VOBJC |CMPIL1, INOBJ, IPDV | 
|dope vectors for varying, | | | 
|non-structured arrays | | | 
bah 4 
|Generates code to calculate the | STBASE | CMPIL1 | 
|starting address of storage for | | | 
loverlay defined items | | | 


he 


| Adds text skeletons to the output |CMPIL1 | None | 
| stream | | | 
See a ರು eunti C CR C QR re ee ee ea re ee 
|Makes dictionary entries for dope |MKDVD | ELSIZ | 


| ೫೮೦೬೦೫ descriptions | | | 


hh 


{Makes dictionary entries for record|MKRDV |MKCNST, CMPIL1 | 
|description vectors | | | 
bol 
|Generates code to set the address  |ADRDV |INOBJ, CMPIL1 | 


Jin a record description vector at | 
jobject time | 


| 

| 
bo E nnn | 4 
[Calculates the length and alignment|ELSIZ | None | 
jof scalar data items | | ! 
ಬಿವಿ EE EEEE 4$------~----~---}---------~-------~------------------ 
[Sets offsets for BASED variables | BASED | None | 
a SE a e: ವಾಸ cat amie ree as a Uo RUNE: 
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Table JKi. 


Phase JK Routine/Subroutine Directory 


er ae ee ee ee ಪಾದ ಹದ ನಮ ವದ ಮಾದ E, 
| Routine/Subrout ine | Function | 
m— ——— —Á——ÀÀ—  —P——— e! 
|ADRDV (JL) |Generates addressing code for AUTOMATIC RDVs. | 


TANNER (JL) 
ಇ (JL) 
| BASED 
loaner (JM) 
ಈತ (JL) 
Sr 
ಹ (JL) 
roov (JM) 


| 
|LOADCN (JL) 
| 


| 
| MKDVD 


| 
[MKaDV (JM) 


|Calculates storage offsets for adjustable arrays. 
[Calculates storage offsets for adjustable strings. 


[Sets offsets for BASED variables. 
| 


| Processes DEFINED items. 


| 
[Adds text skeletons to the output stream. 
| 


|Determines size of storage required for structure base elements. 


[Initializes object code statements. 


|Generates code to set up primary dope vectors. 


l 

|Generates object code to load object registers with constants known 
jat campile time. 

|Makes dictionary entries for DVDs. 


| 
| Makes dictionary entries for RDVs. 


| 
|NXTREF/NXTRF1 (JM) |Gets the next structure base reference. 


ಜ್‌ (JM) 
ಸಟಕ್‌ 
7625 
CENSOR (JL) 
ಆಜ (JL) 
SETOVE 
lasi 


| 
| STBASE (JM) 


d 
2» 
"d 
"4 
~ 
Cy 
> 


H 


RMWS (JL) 


< 


OBJC (JL) 


[FP eee coe cme ene — ee — ane oe 


| Processes arrays. 


| Processes structures. 

|Calculates storage offsets for adjustable items in structures. 
[Scans AUTOMATIC, STATIC, and CONTROLLED chains. 

{Sets the reference to the current entry type 1. 

feats the dynamic dope vector size for non-adjustable structures. 
ಯಜ base element multiples. 

ಜಾ code to initialize starting address storage for overlay 
{defined itens. 


|Generates code to initialize string dope vectors for arrays of 
{varying strings in structures. i 


|Terminates object code. 


|Generates code to initialize string dope vectors for varying, 
[non-structured arrays. 


— m I ಸಾ A. peto auccm DNE apo GP anum aub ಆಧಾ te ADIP Se eS "UP ee UND ಆನಾ ಆದಿ ಮಂ ಅವಾ ಆನಾ UID ee ee ಆನಾ MPO VD. MN 4D ee VID YI URP ee een ಬಾಜಾ ವಾ re OO ಅಧಾ PI ಆನಾ MED ಉದಾ ಆನಾ a D ED ಅದವ a ee ee m 
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Table JP. Phase JP Translator Defined Check 


ಧಾರಾ ದರಾ ಲಾರಾ a ee ee MF eee ತಾ eS a aay 
{ | | Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
fermen an nn nnn nnn nnn fn nnn nf nn nnn ಸ್ಥಾ ಸೂ. 
| 5೦೩೫5 DEFINED chain; checks |IEMJP . |GETCLS, GETLTH, STRCMP | 
| validity | ; | | 
ತಾಸ whee 3922 ee are Mem E coe oe ———————— eS cae ಜಾನ ಆ ee A —— — — — — ಧಿ ಇದಿರಾ — — ಆಂ —Á ನಾನಾ ಆ — M AP ಬಾ A — A — ಆನಾ M we —— A AP — — ----4{ 
|Checks that two structure | STRCMP | None | 


|descriptions are the same and that | - | | 
|they may be validly overlaid | l | l | 


Table JP1. Phase JP Routine/Subroutine Directory 

[Rout ine/Subroutine| | Function. | 

| GETCLS |Analyzes structure descriptions, and checks that all elements are of| 
|the same defining class. | 


ho 

enan [Obtains length of string or numeric field from associated dictionary| 
| | entry. | 
[zeus ns scan of DEFINED chain; checks validity. l 
ae rasek whether defined item is packed. | | 
15450 ಗ whether base defined item is adjustable. | 
[39200 [Tests whether item jea structure. | 
2580 3 ಇವತ್ತ whether defined item is coded arithmetic. | 
[28585 |Compares base and defined item. | 
| JP542 La whether defined item is dimensioned. | 
| JP543 |Tests whether base code is arithmetic. l 
| STRCMP | Compares structure descriptions: | | 


Table JZ. Module JZ Compiler Control 

(re CC ಮಮತ ವಾರಾ CEA OE 
| [Main Processing| . | 
E Function | Routine | Routines Used à ಡೌ | 
hh 
೫2288 the phase directory | IEMJZ {RLSCTL, ZUPL, ZEND | 
|for the second half of the compiler| 
| 


| 
|Entry to 05/360: BLDL | | 
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€ Table KA. Phase KA Resident Control Module 
ವಾಸಾ a eee ii que cti ain a ee ei i t mium ens oa ಮಾವಾ ವ ಮಾನಾ a a 


| [Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
——————— — — —— A: — !9M—QQ st H0] 
[Handles KTAB BLDC/T operations | KAHBLD | ZTXTAB, KAHLOK, KAHULK, ZUTXTC, | 
| d | KAHERR | 
fa nn nn nn fn nen nnn nn ooo -—-——-——-—---------——---—- 1 
[Handles KTAB DR operation | KAHMDR |KAHERR, ZTXTAB, ZALTER, KAHULK | 
A SS ST SS A NS ಅವಿ TS YE AS SS ಆನಾ ಅನಾ OS ಆನಾ” ಆಆ ಆತಾ ವಾ ಆನಾ ——4-~-----—-~-——-~-- C — — o oe eee ಅಪಪ ee en ಮಾಜಾ ಲಾ Ru ee ee ಆನಾ ew ಅವಾ 4 
{Handles KTAB ULDR operation | KAHUDR | KAHULK | 
ಜಾನಾ ನವ ವವರ E ನದ ವವ ನಸವವ a | 
jHandles KTAB DEACT operation | KAHDAC | KAHULK | 
| Handles KTAB FREE operation | KAHFRE | KAHERR, ZALTER | 
{Handles KTAB SCAN operation for | KAHSCN | KAHERR, KAHLOK, ZTXTAB, KAHULK | 


{non-text tables | | | 


hd 


| Handles KTAB SET/SET Z operations |KAHSET | KAHERR, KAHULK | 

c unn ಅನಿಮಾ AAD QUID RE ಮರು cU EEO ಆರ VID CES ಅಮ ಚಪ VEND GUND SEDO GENS EY AO QUID ದಾವಾ ED En ಮಾ ERD ಇದಿ ಆವಾ ಮಾಜಾ eRe ವರಾ amm ಆಧಾ ಮಾನಾ ವಾ ಹಮ ದಾ UNIO ರಾಯ M iD QUUD ನವ ಇವವ: —————————————————————————-———------4 
|P1iace save area stack, DTCAs and | KBSTUP (KB) | None | 
{block list table in scratch storage| | | 
cc EEE SE MU Tce | ——— HÀ Sa E es J 


e Table KA1. Phase KA Routine/Subroutine Directory 


| Routine/Subroutine| Function | 
amu) cU es Mul ected — ^3 -೧೫೬.] 
Dacos |Handles KTAB DEACT operation (non-text tables) | 
| KAHERR | Produces error message and aborts | 
ಮೂ ತಪು KTAB FREE operation | 
ಟಟ ere a table entry | 
ಚು ETEN KTAR DR operation (non-text tables) 
ae Handles FTAR SCAN operation (non-text tables) 
| KAHSET | Handles KTAB SET/SETZ operations (non-text tables) | 
re PN all KTAB operations on text tables | 
ಸರೆ ಚಚ KTAB ULDR operation l 
nour |Unlocks a table entry 
| KBSTUP (KB) CT save area Stack, DTCAs and block list table in scratch | 
{ | storage | 
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Phase KC Do-Loop Specification Scan 


wo zx NE E CD CDM ಪಾರ್‌ ದಾನಾ ge ON ಕಾಕಾನ Pe ಕಾಣಾ ee, C CE ಕಾಸ ನಾನಾ BT m KM cM MC Ge ey ee ದಾವ್‌ get ee ae ee eee ಕತಾ 


{Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 


a a 


|General text scan | NXTRP ` |SCAN (KA), DOLOOP, ONBLK | 
4 
[Sets ON mask for ON unit | ONSLK | 5೦೩೫ (KA) | 
fanaa nn nnn nnn fn nnn nnn PEE 
{initializes reordering scan after  |DOLOOP [SCAN (KA), EXANAS, CVEND, MOVE, | 
|ITDO triple | | MOVER | 

wr nn OO ಬದಲಿ nr nnn nnn NEO 
|Analyzes expression in loop speci- |EXANAS {SCAN (KA), MOVER, RSCAN | 
| fication | | 
ರಾಯಾ ALD AS > SS A ಪಾಯ AP QUUD ES AS ದಾ UD A TS SD ಆನಾ TS UND ಆವಾ ಖಾಸ ಆಂವಾ ಇಲಾ ED QU ED ES OTE cu) SRNR ಚಾಪ ಅನಾ ದವಾ GU. GERD ದಾ SEED ರ ಆನಾ ನಾ ಇದಾರ + EE M ಆನಾ ಬಾ au A ಘಾ ಇಂದಾ ಆನಾ MED VNDE HAND ಪಾಸ ನಾ ಮಾನವ ಕಲೌ ಪಚಾ ನರು alum ino ಜಂ qum ಸ ಸಾಸ 4 
[Scans for ITDO nested in loop | ೧೦೦೩೫ | SCAN (KA), MOVER | 
| specification | 1 | 
|Completes reordering scan at end of|CVEND |SCAN (KA), RSCAN, MOVER, MOVET | 
| loop specification | | | 
Na cee ುಾಾಾೊಾಳದ್ಟೂೂುಒಾರಾಾಾಾೀಾರು,ಾಾುುೂುು್ಟೂಾಾಾಾುಾಾಾಿುುುು.ಿುುುುುುದುುರ...ುುಟುಟುುು.ಾರಗೂರಟೆದ್ದುೂಾಾರ್ತಾರೂಸುಕ್‌ J 


e Table KC1. 


Phase KC Routine/Subroutine Directory 


————————— ——————————————————————————Ó—Ó————————————— ರಾಕಾ ಕಾ À— —ÓÓ——————— ————1 


| Routine/Subroutine| Function | 
[CVEND — leoupletes vecrdaving ecu ac ead of low poelie iio 7 7 7S | 
adm eas reordering scan after ITDO triple 
RN | Analyzes expression in loop specification | 
ave ae triple into MOVE list | 
| UGVER oe triple into REORDER list | 
|MOVET |Moves REORDER list into text | i 
ಚ {General text scan 
pee {Sets ON mask for occurrence of ON unit 
| {Scans for ITDO nested in loop specification 
for (KA) scans text | 


L mm me mee i IL ————————d ಸನ me a ae mae a eee ಕ್ತ, ಜಿಕ wn ee a ee a re m en nn m a ee m ee ee ee nam 


9 Table KE. 


Phase KE Dictionary Scan and DO-Map Build 


ee eee me ಅತತ ಕಶ even 1 

{Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used: | 
——Á—— — nn nn nnn fn nnn — ————— AQ 
| Initialization | KEINIT |KCDS, KESCAN, HTAB [ 
[Dictionary scan markina unsafe | KCDSIN |HTAB, ZDICRF, ZDRFAB, ZDABRF | 
| variables | | 1 
[Scans text and passes control to | KESCAN | KTAB | 


|triple processing routines | | | 


A —— À— —— se — —À —€— —À — —— ಅ ce de —À — —À —À —— — ee ec e m —À —À——  —— —— Ó—— À ಹಾಟ eee  — € ———À ಆರ — ರೂಡ ed 
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eTablie KF1. Phase KE Routine/Subroutine Directory 


—!q ಆನನ ಅವರಾ MP YS SS A UD Ue ಆರಾ ಬಾವಾ ciun ums amm emp ಆನಾ LS SS AS VM AAS AS SE AED UM) ಪಪ ಭಖ SED SS QUID SY GU ED amr WD NS SRA ಪಾವ ED GA MU Ges ಆವಿ RS ED ವನಾನಿ GERD UND CUM UAM UP UND GD ED Uu GUD uA ee i es ಆನಾ oum im e 1 


| Routine/Subroutine | Function | 
|KCDSIN — ಯರ [Dictionary scan marking unsafe variables == = ದರರಾದವವವವಧಧ-ಧಧಧಘಧಧಧದಥ್ಣ 1 
| KECDME [Creates a DO-Map entry | 
| KEDEND eid es the DO-Map entry 
| KEERRH | Produces termination error message and aborts | 
| RINT | een | 
| KELKUP [Scans list of procedures and pointers | 
| KESCAN [Scans text calling triple processing routines | 
| KESTER: [Wakes entry in stack | 
a sm aac ———————— — en a cat me am ga ne eee ee a as J 


ಅ Table KG. Phase KG DO Examine Phase 


ಸುವ ಪುರ ee eee qr e re SR es ee ns 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
| --——--- --- == nn ದದ ದುದದ fon nnn nnn nnn nnn nnn nna 1 
|Nain processing routine | KGMAIN |KGSCAN, KGSRGL, KGSORT, KGUSEN | 
-=-= fanaa nanan nnn rn nnn nnn 1 
[Tests whether an ON-unit could be {|KGOTST | KGSRGL | 
jentered as a result of an interrupt| | | 
loccuring at the triple being | | | 
| considered | | | 
ma na nnn nf nna nn nnn ವಸೂ ಸಪ nnn nnn nd 
{Transfers control to appropriate | KGSCAN | KGERRR | 
{triple routine | | | 
}--—--- N NOE ವಾ === ho 4 
{Considers a variable for entry into|KGUSEL | KGUSEN | | 
{the USE list | | | 
| pnm————---————————— — ವಾವ: ———M—ÓÀ — am ಆಹಾ, —(€—€——————————————————————————————————ÁÁÁÁ€ d 


e Table KG1. Phase KG Routine/Subroutine Directory 


|Routine/Subroutine| Function | 
ರ್‌ 
| KGDELU [Deletes unsafe variables from USE list | 
| KGERRR ಜ್‌ a termination error message and aborts | 
| KGMAIN {Main processing routine | 
| KGNICE |Checks that a dictionary reference is for a real fixed binary uiu 
| jinteger variable | 
ones ಇತ whether an ON-unit could be entered from the triple being 
| | considered | 
eee {Transfers control to appropriate triple routine | 
ಸಾ = |Sorts the USE list so that invariant variables appear first 
| KGSRGL l cs an entry in the SUBS/REGION list 
ಆಟ considers a variable for entry into the USE list | 
KGUSEN asked an entry in the USE list | 


e Table KJ. 


Phase KJ Subscript Table Build 


ponet ec e c ಕಾಕಕ ಸತ m mm qucm een qe ee Nem ee eee 1 
| |Main 27೦೦೮553701 | 
| Statement or Operation Type | Routine | Subroutines Used | 
po —— ಸಾ ho ce 1 
{To build the SUBS TABLE from the | KJSB | KSRBXCH, KJSRCHKP, KJSRSOPC, | 
|Subs/Region List and test the loop | | KJSRTDED, ZDRFAB, KTAB | 
[initial, step, and limit for use in| | | 
|BXLE and BXH code | | | 

e Table KJ1. Phase KJ Routine/Subroutine Directory 
— — —À —— — GD — oe — Ee — — ಮಮಾ — — A — — Ór€—————— ರಾದಾ ದಾ ದ್‌ ಮಾಲ್‌ ಅ Á—— A i aaa aa | 
|Routine/Subroutine| Function | 
| KJSB |Builds SUBS TABL from Subs/Region List and tests the loop initial, | 
| [step, and limit, for use in BXLE and BXH code | 
| | 
| KJSRBXCH |Checks that current loop is optimizable for BXLE, BXH loop control | 
| | code 
| KJSRCHKP |Sets a series of flags stating the attributes of the expression | 
| | being analyzed | 
| | | | | 
| KJSRSOPC |Sets a series of flags stating the attributes of a given triple | 
| loperand within the context of the expression analysis | 
| | | | 
| KJSRTDED |Sets the target DED in the dictionary entry for a constant to be | 
| |used in BXLE/BXH code. If necessary, new data dictionary entries | 

| lare created and the reference in text modified. | 
| | 
| KJSRUSEL jSearches the given USE list for a given variable | 
| | | 
| KODECN [Tests a given dictionary entry for a REAL, FIXED, BINARY, SCALAR, | 
| | INTEGER variable, or a BINARY or DECIMAL INTEGER constant | 
i | l | 
| KONICE [Tests that a given variable is REAL, FIXED, BINARY, SCALAR, INTEGER. | 
| | 
| KOPRSN [Tests if a given dictionary reference is: | 
| ji. a variable of precision less than 30 bits or | 
| | 2. a decimal constant of precision less than 8 digits or | 
| |3. a binary constant of less than or equal to 30 bits | 
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© Table KN. Phase KN Subscript Optimization 


ಸ್ಟ ಇಷ್ಟದ ಸ್ತ ಭಾ MDC MCCC ಸ ಸ ಸಾ ಷರ IEEE a ee ee ee ee ae ee ee aha Ha a Se a 


|^ |Main Processing| 

| Statement or Operation Type | Routine | Subroutines Used 
SS ಕರ್‌ ಕು ೈೈಾುೈುೈ 
|Sets up the physical phase KN data |KNINIT . | KNCLOF 

larea, KNDATA in scratch storage. | 

| KNCODE, which is a group of lower | 
|1level subroutines, is also moved | 
Jinto scratch storage. The Ka | 
| storage area is provided by KA. A | 
{scan is made of the chain of DO-map | 
|entries, and subroutine KNCLOF is | 
|calied for each to remove offsets, | 
jand prepare potentially optimizable| 
| subscripts for matching. | 
{Scans the subs entries of the | KNCLOF | ೫೫೦೦೫೮, KNHASH, KNANAL, KNOPTY 
[subs-region table for the loop. It| 
{cleans up potentially optimizable | 
|co3e, removes offsets, accumulating| 
|the total offset in the spare | 
|operand of the appropriate subs | 
|triples, and calculates hash values| 
[for optimizable COMA's. 
{Accumulates hash total and computes|KNHASH 

|hash for specified triple. | | 
-———--—-——--——------------——----------6---------------4----------------------—------------- 
|Analyzes the type of triple operand|KNANAL | ZDRFAB 1 
{and sets a return code value | | | B 
| accordingly. | 


aje am ce ee ee — ee — — 
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fe — eee ಹಾಟ — — ree — ಅವನನು — — 


4 
tage igece the type of triple operand | ೫೫೦೮7೫ 
jand sets a return code value | 
| accordingly. | 
oksene a decimal constant to | KNCOMU 
joinary and multiplies it with a | 
[given binary value. An option may | 
|be specified to allow conversion | 
{only of the given decimal constant | 
{to binary. | | 


= 
a 
Hj 
» 
ಹ 
ie ae ee a meee eee oes mds em ao aes 


is KN1. Phase KN Routine/Subroutine Directory 


[Routine/S subroutine! Function | 
he —— dl 
| KNANAL |Analyzes type of triple operand and sets a return code value 
| | accordingly. 


KNCLOF jScans subs entries of subs-region table for loop. Cleans up 
|potentially optimizable code, removed offsets, and calculates hash 
|values for optimizable COMA's. 


| 
| 
| 
| | 
| KNCOMU |Multiplies decimal and binary values. 
| 
| 
| 
| 


KNHASH | Accumulates hash total and computes hash for specified triple. 
l | 
KNINIT | 5೮15 up code and data areas in scratch storage, and scans chain of 


|DO-map entries, calling KNCLOF to remove offsets. 


| | 
| KNOPTY |Analyzes type of triple. 
L 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 
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9 Table KO. Phase KO Subscript Optimization 
CS a a a ee es a eee ee 
[Main Processing| Subroutines Used 

| Statement or Operation Type | Routine | 

|Initialization is performed for the|KOINIT | ZLOADX, RELESE, 

|phase. The next DO-map entry in | |KTAB (Macro routines in KA), 

{processing sequence is obtained and| |KNOPTM, KOBXCH, KPUPDT 

|put in scratch storage. Module KP | 

jand KQ are loaded, and the | 

[Subs/Region Table is updated from | 

|the patch file. The iterative | 

[specification and DO-map are | 

| checked in order to amend iterative] 

|specification. A subroutine is | 

[called to form a match chain in the] 

|Subs/Region Table, once for | 

{Transforms and Invariants and once | 

|for commoning. When end of DO-map | 

jis reached return is made to | 

[Compiler control | 
4 


ಕಾರಾ ಮಜಾ ee ES ES E eS E pum unum AS EES ER ಯನು: ey EE ಣಯ ಮು ಅಲಾ em ಅವಾ eS ಕಾಸಾ a MUR ಇವಾ a mmm ಜಾ ನಾ ಬಾಜಾ ASE ಜಾ ಬಜ ಚಟಾ as e a am a ಮಾಹ amme e e MARS ಇಷ eee eee am ie Heres MIS MM, ಇಂ ED Me ANUS ಮ mee ee cee ee ey ರಾವಾ” a amm rem oe ee ಇಸಾ, 


KTAB (Macro routines in KA), 
KOSNDX, KOPTCH 


{The sindex number for the loop is 
jset to zero. The routine looks at 
{the DO-map entry and iterative 
|specification triples and makes a 
{patch over the ITDO and ITD‘ 
[triples if BXLE/BXH is to be 
|generated for the loop 
|The match chain is processed and 
[entries are made in the patch file. 
|The patch entries contain optimized 
[code for three types of 
|subscript. Patches are also 
(created for the BXLE/BXH code for | 
[optimized loop control | 
}---------—---------------—--------} --—------------} ------------—-------------------- 
{Creates part of patch for | KOMCOM | KOMOVE, KOPTCH 
{Transforms and Invariants. It is | | 
{called from KOMTCH | | 
SS SS ee 
| Makes an entry in the patcn file | KOPTCH | KTAB (macro in KA), KOMOVE, KOPCOM 
{from the patch build area.  Options| 
(are available to move the patch | 
|data to the patch build area before| 
[making an entry in the patch file. | 
|Entries are chained together if | 
[they are to be inserted at the same|. 
jpoint in text. A PTCH triple is | 
| 
| 


— — — eres a amen cane ನಾ ಸಾ — —— — — A cee a ee ಪಾಸ — — eee ee 


KOMTCH | ZDRFAB, ZDICRF, 
|KTAB (Macro routines in KA), 
|KOCVTX, KOSNDX, KOMAKC, 
| KOPTCH, KOMCOM, KOMCHN, 
[KOMOVE, KOSSB3, KOSSB2, KOSSB1 


un wpe c a— —À — — — ರ — — — — — — I ಭಾಸ — 


en ಅಚರ cus ap ane quu umts ja suum sumen amer serm ಅದಾ dinis ಇರಾ 


docu xc eie 


{placed in text at the point of 
linsertion. The overwritten triple 
lis placed in the patch 


pt ees an ee — — — —À — a— — 
kn uA LÁ aÁ—À aaa. as— a —— —í o— M — 
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9 Table KO. Phase KO Subscript Optimization (continued) 


ಸವ LEM CC ಸಷ ಧು ಧಡ ee OT ಟ್ಟು Med cp eee ee S Nee CHOC ML E C CDL CE ಮಾಸ as 

_ {Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
bo 
|Moves the triple to be overwritten |KOPCOM | KOMOVE i 


{into the patch and moves the patch 
Jinto the patch file. The symbolic 
|reference of the patch is moved to 
| ೧೮ PTCH triple in workspace. The 
[triple in text is then overwritten 
{with PTCA triple 
——————————————————————————-—-—------------------4--------------------2-2-2-2-2-2--2-2------- 
|The triples pointed to by the text |KOMCHN |KTAB (macro routines in KA) 
[references in the Subs/Region Table| j 
Jelements in the current match chain| 
| ೩೫೮ amended to refer to a value | 
[calculated in patch code. The | 
|chain is then deleted and all | 
| 
| 
| 


M —————— 


|COMA's processed are marked in the 
[Suos/Region Table as dealt with and 
loptimized 
SS —— T ———————————— 
|Tests the type of triple at the | KNTRTY | none | 
jaddress given and sets a return | | | 
{code accordingly | | | 
E--7-7-7------—--------—----------------- eh 
| Moves an item to the next available| KOMOVE | none i 
jaddress in the patch build area in | | | 
[scratch storage | l | 
en O OE 
|Allocates a sindex register. The |KOSNDX | ZUERR, ZABORT : 
{sindex register counter is 
lincremented, the sindex available | 
|counter is decremented and the | 
[symbolic register counter is | 
| incremented | 
SS SSS 
|The first part of a subs list, con-|KOSSBS {KTAB (macro routines in KA), 
|sisting of the SUBS triple and the | | 7೦೮೫೦೫, KOMOVE 
|COMA's before the first matched | 
|triple, is moved to the patch build| 
jarea. The SUBS is chanced to SSUB | 
{and a symbolic register number is | 
{placed in the second operand. A | 
| 
| 
l 


— m e € —À — — — — ದ — 


u— ans a m ae 
dum ಎಲ MÀ cms —— — — 


17013 value is inserted in the 
|second operand of the COMA triples. 
{All other triples are not moved 
uu —— — ———— Hr Ó—Á——— —€—€——Ó———— Á—— ತಾವತ್‌ 
|Moves the last part of a subs list, |KOSSBE | KOMOVE 
[consisting of tne COMA's between | 
|tne last matched triple and the | 
|SUB' triple, to the patch build | 
jarea. The SUB' is changed to SSB' | 
land all COMA triples have their | 
| 
| 


afea meme cme — come comm arame —À comme 


1೨೮೦೦೧೮. operand set to null value. 
{No other triples are ‘moved 


LLLI ILL III —————————— ಅ ಅಹಾ ಅವಾ m ee bh ee ee ee 
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9 Table KO. Phase KO Subscript Optimization (continued) 
xc ಮಾಸಾ ee CC C MC ee ee ee ee 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


[Tests whether any operand in a list|KOCVTX' | KTAB (macro routines in KA), RETI 
lof triples is a reference to a | | | 
[control variable of the current | | | 
| loop | | | 
|The message ‘Invalid input type V |KOEROR | ZUERR, ZABORT | 
{to optimizing phase KO' is put out | | | 
}---------—-—--------------------—}---------------}--------------------------------— 
|Moves a subscript list into the | KOSSB3 1705585, KNTRTY, KOMOVE, KOSSBE 
{patch build area changing the | 
| 5085/5081 triples to 5508/5581. | 
|All matched COMA expressions are | 
{copied with amendments as follows: | 
| (1) References to the control | 
{variable are replaced by references| 
Ito the step. 

| (2) All additive invariant parts ofj 
|the expression are deleted. 

|All unmatched COMA expressions are | 
[replaced by COMA - NULL | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
po IM SE ON ELM MM ದವನದ ಲಲ ಮಾವಾ ENTLY, ROMOVE. ಇರ ROGGE d 
| 
| 
| 
| 
| 
| 
| 
| 
| 
4 


IA subscript list is moved to the | KOSSB2 | ೫೫೧೫77, KOMOVE, KOMAKC, KOSSBE, 
| 2೩೬೭೦೫ build area with SUBS/SUB' | | KOEROR, KOSSBS 
[changed to SSUB/SSB* triples. All | 
jmatched COMA expressions are copied| 
|except the dictionary references to| 
|the control variable which are i 
[replaced by dictionary references | 
Ito the 'initial' elements. All | 
| unmatched COMA expressions are | 
[replaced by COMA - NULL | 
|-----------------------------~-----}---------------}-----—---------------------------- 
[A subscript list is moved into the |KOSSB1 | KOMOVE, KOSSBE, KOSSBS 
{patch build area with 5೮೫85/5081 | 
|triples changed to 55೮8/5581 | 
|triples. All matched COMA i 
|expressions are copied. All | 
| 
| 


| unmatched COMA expressions are 

{replaced py COMA - NULL 

ho 

{Produces a binary constant, if it |KOMAKC {KOTSTO, KNTRTY, ZDICRF, KOADDC, 

lis possible, given as parameters | | KOSUBC, KOMLTC 

|the dictionary reference of two | | 

| constants in the operands of a | 

[given triple. A dictionary entry | 

lis made for the new constant, the | 
| 
| 
| 
| 
| 


-— — ee — — eee ಡಿದ, 


|dictionary reference of which is an 
{output parameter. A return code 
[value is also given indicating 
|whether or not such a constant has 
|been created 
——————-—-————-—-----—---——-------—-—-—4---—------—-—---L----------------------------——------ 
IA dictionary entry is obtained from|KOTSTO | ZDRFAB, KNCOMU, KOPREC 

{the given dictionary reference and | 
[tested to see if it is for a 
[decimal or binary integer constant. | 
{If it is, the effective precision | 
{is found and the constant is | 
[converted to binary if necessary | 


tL. nL en ee en ha a ವ ಅ ಭಾ ವ ವ 
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| | 
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e Table KO. Phase KO Subscript Optimization (continued) 


eg et RCM OMEN IM ಸಾಪ ಸಾಸ MM ಭನ crm MEM CL D KC d M a 1 
| {Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
he 4 
{Calculates the effective precision |KOPREC | none | 
lof the binary fullword given | | | 
bo 
|^ binary fullword result is | KOMLTC | none l 
[obtained by multiplying together | | | 
|the two input binary values | | | 
pom nnn nnn —Á— —Ó— —— nf Hann nnn ರಾರಾ ತೂ 
[|^ binary fullword result is | KOADDC | none i 


Jobtained by adding together the two] | | 
Jinput binary values | 


[obtained by the subtraction of the 
|two input binary values 


[Converts a decimal constant to 
|binary and multiplies it with a’ 
{aiven binary value. An option may 
|be specified to allow conversion 
|only of tne given decimal constant 
Ito binary 

[Scans the subscript lists of a | KNOPTM |KTAB (macro routines in KA), 
[DO-ioop looking for matching COMA's| |KNSECO, KNTRMV, KNCHRG, KNCMPR, 

jor COMA - expressions which are |KNALRG, KNOMAC, KNMKVL, KOMTCH 
{possible candidates for 
|transforming, moving out of the 
|loop as invariants, or commoning 
|Forward scans the Subs Table entry 
| (equivalent to a backwards text 
|scan) looking for the first group 
[cf cOMA's that are optimizable as 
jindicated by a switch 


— —— ame ee mee nes me — eee — e — 


KNSECO none 


Hd — 


|Analyzes the type of triple operand|KNANAL 
{and sets a return code value | 
{accordingly | 


hh 


{Clears the match chain | KNOMAC | KTAB (macro routines in KA) 

|Match area code is compared with | KNCMPR {KTAB (macro routines in KA) 

|text. The start point, finish 
jpoint, and length of matched code 
jis passed back. Only complete 
|COMA's or COMA - expressions are 
[matcned 


KNTRMV |KTAB (macro routines in KA), 
|KNTRTY, KNANAL, ZTXTAB, KNCOMU 


|Text between specified triples is 
[scanned. Cleaned up triples are 


[moved into scratch storage 
ಹಯ ಎನೂ a SSNS JUN UU STUNT UR 
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€ Table KO. Phase KO Subscript Optimization (continued) 
Se ee ee ee ene m ನಾಕ 

- |Main Processing| 

| Statement or Operation Type | Routine | Subroutines Used 


H- + : 
|A list of dictionary references of |KNMKVL 
[all variables in operands of | 
[triples in a scratch work area is | 
[made. The list is terminated with | 
|a halfword of zeros. A flag is | 
Jalso set if any of the variables in| 
|the work area are unsafe | 


uu qup ED ಬನನು TA TUR ಮಾಹಿ A END Out) EE ಅರಾ: ಆದಾ ಆಹಾ ಆಜಾ ಇಸಾ ES ಬಯ SD ಆರಾ ರಯ 





-—-—-—-—j----—-----------L----------------------------------- 
[^ check is made to determine if the|KNCHRG 
{given region entry is an end region| 
|for commoning for the matched code | 
jin the scratch work area | 


2 
o 
ದ 
೧ 


JA check is made for region | KNALR |KTAB (macro routines in KA), KNCHRG| 
[boundaries between specified | l - | i 
|subscripts I | | 


e ಆಡದ ಮಾನಾ ಬಾರಾ ಅತನು EE ಅನಾ ಆವಾ aaa aae um SAEED ಭವಿ ಭಹತ ನಾನು ಬದಿಯು ಹವಾ ಅಜನ ನವಮ ಆಮಿ ಸಾಸು GEO aD a ಅ ಸನ ಲಾ MD GED QUAD UBND ಆನಾ ಆನಾ ಆನಾ QUO ಜಾನಾ VE re RD cip ಅವನಾ D ಸ ಆನಾ ಆನು UD UD ಇನುನ ಆದಾ ಎಣ ಆ ee oe 


[Controls the search through the | KPUPDT | KTAB (macro routines in KA), KPSSUB| 
|patch file for SSUB triples and the| 
| subsequent processing of the | 
|restricted types of expressions | 
| found after the SSUB triples | 


uum ಆಹು: ವರಾಳಿ quub du ಬನವ ಆಹಾಘ ಆಂಗ, cab EUR ಖಣ ವಜಾ ನಾನಾ OY Qu) GHEP UD ಹಾ UD AND ಆವನು ce NE ES ಬಾಶಾ: ಇರದೂ ಪಾ ಬಾ anum ಅ ಮೋ eum ee arum ಅನಾ ಅವಾ ಹವಾ ಆತಾ ಆನಾ Ce ee ಇವಾ dim 


| | 
| | 
| | 
| | 
|Shortened version of phase KJ. | KPSSUB |KTAB (macro routines in KA), | 
| Processes those triples following ೩! | ZDRFAB, KPCHKP | 
| SSUB triple | | | 
————— ee ತೆ NS 
|The USE list is searched to see if |KPUSEL |KTAB (macro routines in KA) 
{the given dictionary reference is | 
[contained in the list. A return | 
|code is set depending on the part | 
lof the USE list in which the | 
[reference is found | 
| SS 
| Examines an operand of a triple and|KPSOPC | ZDRFAB, KPUSEL 

jsets flags in a code byte giving 
{the information required on the 
{operand during the analysis of the 
|expression within which it occurs 
[The operands of triples following a 
|SSUB triple are examined to 
[determine the type of expression 


adem cee mm eee cere 


KPCHKP | KPSOPC 


[P ee cme ce ee 
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9 Table KOL. 


Phase KO Routine/Subroutine Directory 


| Routine/Subroutine| ; Function 

[KNALRG  ಂೊಂ,” ೈ೫೯್ದ್ತೃಯ [checks region boundaries between specified subscripts # | 
— ಗ type of triple 

cE {Checks for end region for commoning 

ಸ TORNARE code in two matching areas 

ಚ |Multiplies decimal and binary values 

iE J variables in scratch storage 

are {Clears the match chain . 

ಚ I subscript lists of DO-loop for matching COMA's 
Tm poisson type of triple 

| duco pM Subs Table entry for optimizable group of COMA" 8 
ಚು ಸತಾರ offsets, tidies up, and moves code to match area 
ಜಗತ |Tests triple type | 

ಜು |Adds two binary values 

ಚಃ ಟಟ DO-loop and patches over ITDO and ITD' triples 
oe jTests for reference to control ಸ 

| KosaOR abate: . 

voter ene ae for physical phase 

ಜಸ |Creates binary constant 

lroet | Amends triples to refer to value in patch 

ಜಿ ಚ್‌ part of patch for transforms and invariants 
d |Multiplies two binary garues together 

for novus item to next place in patch build area 

ಜರಾ FORSE match chain and makes an entry in patch file 
iOpen | meee triple in text with PTCH triple 

ಜ್‌ es effective precision of binary value 

| KOPTCE [Makes an entry in the. patch file | 
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9 Table KO1. Phase KO Routine/Subroutine Directory (continued) 


[Routine/Subroutine| = = = | Function 1 
|KOSBSC —  ಂಂ್ಲ್ಳಂ್ಥ ಿೆ,ರ [Gets next entry from Subs/Region table  . ೊೊ್ಬೊೆ.ೊ. ಬೆದೆ 1 
ಚಃ |Allocates a sindex register i 
ಜ್‌ Ten last part of Subs list to patch build area 
ET [Moves first part of Subs list to patch build area | 
aCe pee a subscript list to patch build area | 
558 yes a subscript list to patch build area | 
Kosani |Moves a subscript list to patch build area l 
ಜೆ |Subtracts two binary values | 
ಜಟಕ ee if dictionary entry is for binary or decimal constant | 
| KPCHKP ET operands of triples in SSUB list 
SG {Sets a code byte after examining a triple operand | 
R oe triples following a SSUB triple in a patch i 
ae |Searches patch file for SSUB lists | 
ce |Searches USE List for given dictionary reference | 


Ell ಸಷ ಮಾ ಘಾ ಯಾನ ವಾ ಸಾವಯವ ತಾ ಮಾವಾ dis ces cus ms cS ಗ ನಾನು ಸಾಸ ao ಪನಿ E ಸವಾ e ರತಾ ಅ ಕ ಅ ನ ಚಾ SE Re ಚಾ ಉದಾನ ಪಚ ಪಚಾ ಫಾ ಫಾ ಘೂ ಅಂ ಖಾ ಜ್ಯೂ EE NP ED QUE GUNT. ಹಾ ಜಾ MURS ಚಾ UOS, pes GER TUUS (ig ಹಾಚಾ ಚಾ due ಜಾ ಜಾರ ಜಟ ಜಣ 
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@Tabie KT. Phase KT Pseudo-Code Scan 


|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


+ + 

[SCINIT Initialization |LA0O0O0S | UT01,UTO2 | 
hd 

{sci Search for triple of | LA0010 | UTO1, UTO3, 7706, UTO7, UTOS | 

| interest | | | 
ಷಾ ವಾಯ at hy a ——— MH ಎಂಎ a ee ee ee 4 

{sc2 Move current triple then [LA0011 [UTO1,UTO3,UTO6,UTO7,UTO8 | 

| search | | | 

| ~-----------~---~------—---~-------}~--------------}-----------------------------------4 
|sc3 Delete current triple then |LA0012 |UTO1,UTO3,UTO6,UTO7,UTO8 | 

| search 

| 5೮೦8 Skip current triple - text 

| wanted 


Gt 
| 
Oi 
al 
| 
[ 
| 
i 
| 
[ 
| 
| 
i 
[ 
| 
l 
l 
i 
l 
| 
[ 
| 
| 
l 
i 
[ 
| 
i 
| 
| 
| 
[ 
t 
— de 


| 
4 
| 
| 
tł 
| SC5 Skip current triple - text |LA0021 UTO6 | 
I free | 
4 
I 
| 
+ 


| SC6 Move current triple - text 
| wanted 


| 
[ 
1 
| 
i 
i 
i 
l 
i 
l 
[ 
i 
| 
[| 
t 
[ 
t 
| 
i 
[ 
| 
l 
[ 
i 
| 
| 
| 
l 
i 
| 
[ 
1 
pre 


ವವ ಯುನಾನಿ ವವ ಎವ ವೆ ಎದಿ -4 

1507 Move current triple - text  |LA0026 [UTO3,UTO6 | 
| free | | | 
NS -—-------- ~~ -----------------------4 
{Scio Symbolic input pointer to | LA0035 | UTO1 | 
| absolute | | | 
ed 
|SC11 Skip pseudo-code - text | LA0040 | UTO6 | 
| wanted | | | 
E nan nn nnn nnn nnn nnn nnn nnn 
15೦೩2 Skip pseudo-code - text |LA0041 | UTO6 | 
| free | | | | 
hh 
[NV2 Move user pseudo-code to | LA0050 | UTO4 | 
| contiguous OP | | ; | 


1 4 + 
| MV3 Move user pseudo-code to OP |LA0055 | UTO4 | 


ee —— ad. 
| MV3A Move user triples to OP | LA0056 | UTO3 ] 
bo np OSO nnn nnn nnn nnn 


|DV1 Generate dope vector for | LA0070 [UTO7,UT10,UT11 | 
| based aggregate | | | 


| ಎಚ ವಾ ಅಣು ce eee ete em es eee wn ER a os aD EE een eee evens l uc MD a SS ಪಪ PEE ವಾಘಾ MICH eee EE ES 
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4 


e Table KT1. 


p------------- 
| Routine/Subroutine 


= 
| 


Phase KT Routine/Subroutine Directory 


Function 


ದಾ ——— —— ——À—Ó——— ——À MÀ —— — e -—-— 


— MÀ À À —  —— — — aae ————————————————————-————-———--——————--——-------—----------------------4 


10೪1 
lage 

| MV3 

| MV3A 
ಜ್‌ 
{sca 


| 
502 
| 


1೨೦3 
[scu 
15೦5 
T 
lae] 
tee 
es 
ere 
scii 
16012 
03 
lutoz 
[03 
0906 
| pros 
ros 
೦7 
| pros 
10 
leri 


tw TL en ಮಾ —À—ÓÓ———— —— —— —— —— —— — — 


[Generate dope vector for based aggregate. 
| i 
|Move user pseudo-code to contiguous output text. 


|Move user pseudo-code to output. 


|Move user triples to output. 


|Initialize input and output text blocks. 


|Searches for triple of interest to user as indicated 


|Move current triple to output then search for triple of interest to 


juser. 


by TRT table. 


|Delete current triple then search for triple of interest to user. 


Skip over current triple and mask input WANTED. 
Skip over current triple and mark input FREE. 
Move current triple to output and mark input WANTED. 


Move current triple to output and mark input FREE. 


ove input pseudo-code to output and mark input FREE. 


onvert symbolic input pointer to absolute. 


o ೧ x 


kip over input pseudo-code and mark input WANTED. 


kip over input pseudo-code and mark input FREE. 


೧ U 


et a new input text block. 
Get a new output text block. 
|Move pseudo-code to output. 
|Move triples to output. 


| 
|Move text to output. 


Move input pseudo-code to output and mark input WANTED. 


|Test for end of block and chain to next block if necessary. 


{Convert dictionary reference to absolute. 
|Move input pseudo-code to output. 
|Set adjustable bound values in a dope vector. 


[Convert output text references to absolute. 
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eTabie KU. Phase KU DO-loop Control and Merge Patches 


ee ಬಸವಾ ae ಜು uU yaa rov eee eee a ecco III cpm Gee a Se ee ea Se ee ದನಾ ವಾವ ಅಹಮ ಮಮಾ 


. 2 3 
| {Main Processing| | 
| Statement or Operation. Type | Routine | Subroutines Used | 
|The phase KU control routine.  This|KUMAI = |MV3A(KT) + all routines in modules | 
lis highest level routine in phase | : |KU and KV except KVJUMP, KVSSUB, | 
| | | KVSSBP | 
pue eee ee ಕ್‌ಾರಣ 1 
jPhase initialization | KUINIT | ZLOADW, ZUGC, SCINIT(KT) | 
prea nanan nnn nnn nn E fon nnn nn he x 
| Processing initialization performed|KUSETS | none | 
|before each return to main scan | | | 
}---------—------------------------ }--------------- }-------------~--------------------- 4 
{Primary phase scan of text | KUSCN1 [SC3(KT), SC1 (KT) | 
bo nn nnn fn nn — — —— 
| Secondary scan of DO-loop | KUSCN2 | 5೦3 (KT), KVERRS | 


|specification elements only | | | 
hhh 
{ITDO triple test routine. Loops | KUITDO . | KVERRS | 
|that are optimizable are detected | l | | 


~~--------------~----=---------—— ——— ————— PME 


ICV and *CV triple processing | KUCVAR [SC5 (KT), ZDRFAB, KVERRS | 
| routine | | l | 
}--------------~--------------------f------------ === ————————— Mad: 
|Determination of type of step | KUSTEP | ZDRFAB | 
oo ಸಾಕಾ ee ef nn ef + a nn ಕು ಪಾಪಾ ಕಾ ee = 
|Fill in loop control skeleton for |KUSKL1 | ZDICRF, MV3A(KT), MV3(KT) 1 
| variable step with no sindex | | | | 
| registers | | | 
meme 
|Fill in loop control skeleton for |KUSKL2 | MV3A (KT), MV3(KT) | 
| variable step with sindex registers|. | | 
ಕಾಲಾ ne ee ae M— ——À — ——À M ಹಾಹಾ ee ಇಲಾ  — ee ee ಅಣು ee he j———————— -—------4| 
{Fill in loop control skeleton for |KUSKL3 | MV3A (KT), MV3(KT) | 


{constant step | | | 
beh l 
| Phase finish. Release scratch | KUENDS | ZURC, RLSCTL, KVERRS I 
|storage KV and patch file. Return | | | | 
[to control. | | | | 


hh 


| ೫೩೬೦ triple processing routine. | KVPTCH | ZTXTAB, MV3A(KT),° KVSSUB, KVERRS | 
|Each patch is located and inserted | |KVITDP, KVSSBP, KVCOMA, KVCOMR, | 
I : | | KVJUMP | 
}-------------------------—-------— --—----------- ho 4 
] Process all COMR triples | KVCOMR | none | 
bh 
| Process all COMA triples | KVCOMA [none | 
he nnn nnn nnn 
{Process JUMP triples. Used only | KVJUMP | MV3 (KT) | 
[while processing a patch | | | 
bh 
| Process 55೮೫ triple. Used only | KVSSUB | ZDRFAB, ZTXTRF | 


{while processing a patch | | | 


—————— fn nn nnn nnn nnn nn nnn nnn nn nnn nn nnn nnn nnn 


| Process SSB' triples. Used only | KVSSBP | ZTXTAB | 
{while processing a patch | | i | 


Lem € —— ಆಯಾ a ae ae ಆನಾ ಅನಿ ಆಮು ಅರರ eee ಆನಾ ಜಾ ಆಂವಾ ಆಜಾ anew PESEN € ———À  —! qm e Am eave ಎಲಾಯ ee qum LESS MEI EK TIE — | 
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è Table KU. Phase KU DO-loop Control and Merge Patches (continued) 


(Perr Ses orl sae er ae ee ee tt NN TOR ತಗ IU ONES DRE EN NER s UNE 1 

|Main Processina| | 
| Statement or Operation Type | Routine | Subroutines Used | 
——— P P——— Ó—— }---------------}--------------------------------—-4 
{SUBS and SURO triple processing | KVSUBS | ZDRFAB, ZTXTRF, MV3A(KT) | 
| routine | | | 
bm — ho he 1 
]5UB" triple processing routine | KVSUBP | ZTXTAB | 
mee 
|lITD' triple processing. Insert | KVITDP | MV3 (KT), MV3A(KT) | 
| epilogue into text for optimizable | | | 
| loops | | | 
fn arn nnn nnn nnn vau um EE 
[Set up phase error message number |KVERRS | ZUERR, ZABORT | 


land parameters | | | 
ma a nn nnn — — ——— nnn nnn nnn nnn nnn nnd 
{Search register alias table for | KVALAS | None | 
| 521೫೧ register | | | 
Lea ele eee eee ಕಾ aa ಎಜು RO os aaa a ee nae ಹು ಸಾತ een 3 
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eTable KU1. Phase KU Routine/Subroutine Directory 


[Rowtine/Subrowtine| = = =. Function | 
|KUCUAR — ರರ ಗು [Processes CV and *CV triple in optimizable loop 7—7@—@——— | 
| KUFNDS | Phase finish. Releases KV, scratch storage and patch text | 
| RUINIT |Initializes phase KU processing | 
|KUITDO teats DO-loops flagged as optimizable | 
| KUMAIN ES KU control rovtine | 
| KUSCN1 ies scan for phase | 
| ೫0೦೦೫2 on for DO-loop specification elements | 
| KUSETS |Processing initialization 
| KUSKL1 [Sets up variable step sindexes available loop control code 
| KUSKL2 [Sets up variable step no sindexes loop control code 
| KUSKL3 [Sets up constant step loop control code 
| KUSTEP TN type of step | 
| KVALAS ಆ register alias table for SSUB register | 
TN RUN beris: COMA triples 
TOR [Processes COMR triples | 
| FVERRS TOR phase KU errors | 
ಸ್‌ inserts loop control epilogue 
| KVJUMP | Processes pseudo-code within patches 
| KVPTCH |Processes PTCH triples by reference to patch file i 
| KVSSDP |Processes SSB' triples occuring within patches | 
| KVSSUB | Processes SSUB triple occuring within patches 
es eere all SUB' triples | 
urs ee SUBS triples | 


ಕಮಮ ಇ ಹತಾ ಹಾಹಾ ಮಾಪಕ ಎವಾ ಹಾಯ ಅಪಾ ಪನ ನಾ €————————M——— ED ನಿತು NS ಆನಾ ಮನಾ ವಾ ದ ವಾವ ಎ ಆವನು ಚಾಹ ಸಾಸ END ಸಾಸ ಘಾ A ES ಸಪ SD SS DS ED SY EY OS ED ED OD ED ND ED ಬಾ SD ಘಾಟ ಚಾ 
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Chart 08. Pseudo-Code Logical Phase Flowchart 
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Chart LB. 
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®Table LB. Phase LB Pseudo-Code Initial 


andes re Cc a ಹಾ E dE ದಾದರ್‌ ಹಣಾ ಪಚಾ ಮಾರಾ ಹನ eae 1 
| {Main Processing] | 
| Statement or Operation Type I Routine | Subroutines Used | 
ಹಾ mm eR RE mR ಲಾ EE ನನವ ಬಾವಾ ನನರ Oy ದಾರ ಕಲರ್‌ ಸರ್ಜಾ RE ಸಾರಾ SE ಅಂದಾ ಇರಿ SE ಹಾಹಾ: ಯಾರು RD SOE ie ಉರ ನಷ ಸು qe ey A cee ಮ MU mun soe Ed 

| [Scans text for PROCEDURE, BEGIN, | SCAN | 5೮೫೫೫7, SC1, SC3, SCS (all in KT), | 
{and ALLOCATE triples | |SFSCAN, ENDRTN, MAIN, SCAUTO, | 
| | | AUTO12 | 
poh 
| Scans automatic chain | SCAUTO | MAIN | 
|---------—--------~---------------}---------------} -----------------------------------4 
| ೫2೦೦೮5೬೮೮೨ INITIAL attribute | MAIN | CNSTWK, ARRENT | 
{dictionary items | | | 
bo 
| Processes IDV statements | AUTO12 | ARAENT | 
bo fren nen enn —- 1 
[Processes INITIAL arrays | ARRENT | CNSTWK | 


Ee eh ee dh I 


Table Lil. Phase LB Routine/Subroutine Directory 


nc ERE KAMMER MR C ps re ge ge ee oN Re M MM dM LI ee LL CES 7 
| Routine/Subroutine | Function | 


ತಾತಾ ತ ತಾತಾ a a a nr rn a 


| ARRENT (LC) | Generates triples and pseudo-code for arrays declared with INITIAL. | 
| AUTO12 ಜಿ IDV (initial dope vector) statements. ! 
| CNSTWK cc initialization triples. | 
| ENDRTN | Releases phase and scratch storage. 
RN ONE INITIAL attribute dictionary items. | 
CONT TON text for PROCEDURE, BEGIN, and ALLOCATE triples. 
(504520 re AUTOMATIC chain. ' 
| SFSCAN [scans through second file statements. 
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Table LD. Phase LD Pseudo-Code Initial 


CO eee eg ರಾ TUM C Ur ae eee Ne 


[Main Processing) —— |... d 
| Statement or Operation Type | Routine | Subroutines Used | 
[Scans the STATIC chain for any {STATIC |ENDRTN, ARRENT, CNSTWK, ^ | 
[e neue adu s E t NE. 
Table LD1. Phase LD Routine/Subroutine Directory 
|Routine/subroutine| Function | 
[ARRENT © [Processes the initial value string for arrays. = ಯ | 
| CRSTWK ree constant entries for initial values. | 
| CNVERT [Converts decimal integer constants used as replication factors to | 
| | fixed binary. | 
1೫೫೦೯೫7೫ ಜ್‌ the phase and scratch storage. 
{GAA1 eee array initial value string. | 
renee | TE slot for converted constant for arrays. i 
ಕಪ {Calculates the equivalent length in bits or bytes of a constant for 
| |variable or adjustable length strings. | 
NIE ps the STATIC chain. 
ee ಚಾಟಿ elements of structures. l 
re Hat initial value list. 
1೪0066 Į Resets initial value entry. 
1529999 ತ slot for converted constant for scalars. | 
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@Table LG. Phase LG Pseudo-Code DO E 


Gee pe YE BAM RT ER MT TOU S ರಾರಾ TE ERIT TELE ಕ್ಯ e Ie. WIR mme ರಾವಾ ನಾ, 1 
| Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ban nn nn nnn nnn nnn nnn E. 
[Scans text 12೮60002 {Sci (KT) . | 
bh —- 4 
|For iterative DO triples, pushes [LG0011 | PSHDWN, SC5 (KT), CVSCAN | 
{down stack and examines control | | | 
|variable ` | | | 
wan nn nnn nn nn nn af nn nn nn nnn nf nnn nnn nnn nn nnn nnn R) 
|Pushes down DO stack [560013 | PSHDWN | 
———À—————— nnn nnn on nnn === === === 
|For iterative DO" and DO' triples, |LG0012 | EXPEVL, POPUP | 
|pushes up stack and removes top | | | 
| entry i | | | 
— G—À e— —À — —À — — — a» ಉದಾ ಆ ಇದರ ಇಮಾ ಮಾರಾ D ಮರಾ ನಾ TS VE um ಮಾದಾ ಲಾ ಆಲಾ ಜನಾ ಆಮು GARD a a = ee ae AD D ಲಾ ದಾ ಆಹಾ” AUD ಸಾವ cuu ಮಾ ಆ ಜರವಾ: — ಜಾ ಇಲಾ —— ee ae £—À ep —— — —X A A A — ee ಆದಾ D oe A ಆಧಾ € —Á —À A — — -4 
|For CV triples, reverts to normal |LG0015 | EXPEVL | 
| scan | | | 
ee fh 


| ೫೦೫ TO and TO' triples, examines 
Jargument and assigns to temporary, 
{if necessary 


LG0017 . | EXPEVL, TESTOP 


| 
| | 
| | 
ee fe ho —- 
|For BY and BY' triples, examines |LG0019 |EXPEVL, TESTOP | 
|expression and determines signs of | | | 
| constants; assigns variables to | | | 
| temporary 1 | | 
rn rn rr rrr rn en fn nr rn ren f rn et etn ಕಾರಕ ern ern cre nnn | 
|For WHILE and WHILZ' triples, marks|LG0021 | CODE3 | 
{loop as iterative; generates test | | | 
|triples l | | 
----~--------------------——-- —----} ---------------} M —— ——— 
| DO EQUALS triples, assigns | 2೧0028 | ೮೦೧೫2, TESTOP | 
jexpression as a temporary; | | | 
[generates code to control loop if | | | 
jend of specification | | | 
bom 
jSets up control variable text in DO|CVSCAN | 7೦೦೫೫, PSTYPO, PSTYP1 | 
| stack | | | 
mas ee ee MMC DA EM MM E. 
[Generates loop control code | CODE2 | CVCODE, DICENT, -COMPAR, SWITCHP, | 
| | | LMV3AU, LMV3A5, PSTYPO, PSTYP1 | 
bol 
| Tests expression result type and | TESTOP |DICCHN, LMV3A5 | 


jassigns to temorary if not constant| . | | 


hd 


| Moves text from DO stack to output |CVCODE | LMV3AU | 
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Table LG1. 


Phase LG Routine/Subroutine Directory 


(77 uum «um umm GERD END Gi Crée ee oe oe ಎಸ್‌ ಕಾರಾ — — M ee ee a HÀ a ae ಸವಾ UN ee «o MEM emp AU Mum que ಇಮಾ ಆದಾ "UD MEM ಆಯು ಆಹಾ Rp Ame aA UND ಆಜಾ BO um ಆರಾ ಅಸ ಅಂವಾ, ಆನಾ CUP ಅಂವಾ Ow wee UA GA ಆನಾ ಆಧಾ wee www ಆನಾ eee ಜಹಾ mm ಇಯ ಆಹಾ ಆರಾ 


{Rout ine/Subroutine| 


Function 


—— —  — —— S: 


| CODE2 

cape 

core 
ee 
OMM 
avsi 
ಜ| 
ಸತ 
ren 
[160000 
ಜಟಾ 


| 
1LG0010 


LG0011 


MV3AU 


L 

LMV3A5 
PCPUP 
PS 


HDWN 


WITCHP 


TESTOP 


Fe ಸಾ AMA crete amma amu aun aa aum ಸಾಥಾ cms ane ಜಾವಾ ಸಷ ee cm neo cam 


(LH) 


PSTYPO/PSTYP1 
5 


{Generates loop control code. 


[Generates loop control code for WHILE. 


|Generates triples to test upper limit control expression. 


|Moves text from DO stack to output. 


| 
|Moves input text to DO stack. 


[Sets up control variable text in DO block. 
[Chains dictionary entries. 


|Makes a dictionary entry. 


{Analyzes expression to determine result type. 


{Initializes phase. 


[Scans text. 

| 

|Wnen EOP triple encountered, releases scratch storage and passes 
|control to next phase. 

| 

|For iterative DO triples pushes down stack and examines control 

| variable. 

| 

| For iterative DO‘ and DO’ triples pushes up stack and removes top 
| entry. 


Pusnes down DO stack. 
For CV triples reverts to normal scan. 


For TO and TO' triples, examines argument and assigns to temporary 
if necessary. 


| 
| 
[ 
| 
l 
i 
|For RY and RY' triples, examines expression and determines sign of 
[constants. Assigns variables to temporary. 

| 

|For WHILE and WHILE' triples, marks loop as iterative and generates 
|text triples. 

| 

|When WHILE' triple encountered, branches to generate comparison 

| triples. 


|For DO EQUALS triples, assigns expression to a temporary: generates 
|code to control loop if at the end of specification. 


|Moves triples to output. 


|Moves one triple to output. 
|Removes item from DO stack. 


| Pushes down DO stack and initializes new stack entry. 
aere pseudo-variable argument type. 

TEN DO stack text markers. 

ere expression result type and assigns to temporary if not 
| ೦೦೧5೬೩೧೬. 


—Ó— — ಅಹಾ ಶಾ ಆಹಾಹಾ de ee ee ಖಾ ee ae ಐತ ಅಣು ಹಾ ಜು ನ ಖಾ re m € ಕಾಕ ನಾ ಷಾ ಅಣ À— — À— ee ಅಚಲಾ a a —— e 
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-@Table LS. Phase I.3 Pseudo-Code Expression Evaluation 


PRR. ಸುಭಾಸ MT qu ರಾವಾ ge aN 


| |Main Processing| | 


1 Statement or Operation Type | Routine | Subroutines Used | 

———— ——— nnn nnn nf oan nnn nn nnn =f 
[Scans text and branches to | LBO |ARITH, FUNCT, LZZ1, MOVEPC, | 

| [processing routines; marks phase LW| | SCAN (KT), STRING, SUBSPT | 
{and releases control to next phase | | | 
{Calculates result type and |ARITH, ARITH2 |ADDSTK, ASSIGN, CONVT, DICDES, | 
{generates pseudo-code for +, -, *, | EXPONT, GENRPD, GETADX, GETFR, 


| operators, and ADD, MULTIPLY, and | STRING, SWOP 
{DIVIDE functions 


————Ó—À—ÓÀ— ಜಾನಾ Ó——————Ó——Ó———— — a ee he ee ವಾ ವಾ a ee ee ee ee ನ ವ ಅ ಪ ಮ ಪ ಅ 1 


| | 
|7, prefix +, prefix -, compare | |GETGR, MOVEPC, RELSTK, SETCPX, | 
| | 
| | 


{Calculates result type for string |STRING 12223, MOVEPC, STALRG | 
joperators | | | 
beste er ಹದವಾದ NEM M MEE ME EE EE | 
|Inserts symbolic register in | SUBSPT |ADDSTK, DICDES | 


{subscript triple and stacks result | | | 
| Inserts workspace description in | FUNCT | ADDSTK, ARITH, DICDES, GETFR, 1 

|| TMPD triples after function, and |GETGR, SCAN(KT) 
|stacks result. Stacks arguments 
|for ADD, MULTIPLY, and DIVIDE 
[functions. Adds pseudo-variable 
[markers to stack 


| 
| 
l 
| 
| 
+ 
(Calculates results types and | EXPONT 
| 
| 
| 
| 
4 
| 
| 


ADDSTK, ARITH2, CONVT, GETADX 
|generates pseudo-code for ** MOVEPC, STALRG, SWOP 
|operator. Generates calling 

|sequences to library subroutines 


| for complex arithmetic 


ae a—— ಇರಾ — am mro come came omo amme 


|Calculates target type and CONVT | ADDSTK, ASSIGN, GETFR, MOVEPC, 
[generates assignment triple for | STALRG 

|conversion; sets dictionary entries| | 
{for constants | | 
—— M — — — —— — — — M án 
|Interchanges operands; optionally  |SWOP | GETADX, GETFR, GETGR | 
| 1oads first operand | | | 
—————ÓÀ— ಹಾ —— ÀÀ ಇಹ ಹಾ ಣಾ ee ene ಅಜಾ ee ದಾ ee ee — —-———-—--—---—-—----—-4 ಆರಾ ಹಾ —À M a aec € — € fo ee ee i m À ಆವಾ ವಾ 
lObtains free floating or fixed |GETFR. GETGR | GETADX, STALRG 1 
larithmetic register; stores it, if | | | 
|necessary 


{Adds items to, and releases items 
|from intermediate result stack 


+ 
I 
| 
i 
| 
| 
| 
| 
| 
1 
| 
| 
| 
t 
! 
| 
| 
| 
i 
J 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 

— — — — ck ಆಹಾರ eee — — — 


ADDSTK, RELSTK |None | 


hm 


{Generates calling sequence for 

|complex * and / operators, 

| supervises complex arithmetic 
liinserts TMPD triples after zero 


operands 


L221 |RELSTK, SCAN(KI) | 
| | 
———————À—————————À 


pesi 
I 
| 
| 
| 
I 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
! 
| 
| 
i 
| 
i 
| 
| 
| 
pe 
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pistas LS1. 


[ADDSTK (LT) 


ASSIGN 
CONST 
C 


ONVT 


ICDES 


| 
| 
| 
| 
I 
| 
| 
| 
I 
| 
| 
[D 
| 

| EOP2 
I 

|E 
| 
| 
| 
| 


FCTDES 


FUNCT 


SENRED 


| 
ARITH/ARITH2 (LT) 


XPONT (LU) 


FXC1 (LT) 


ETADX (LT) 


G 
GETFR/GETGR (LT) 


| 

| 

| 

| 

| 

I 

| 

| 

| 

| 

| 

| 

| 

| 

| 

12280 

| | l 

|LBE21 (LT) |Tests for operand conversions and constants. 

| : 

128823 (LT) {Generates floating pseudo-code. 

| 

| 1221 | Inserts TMPD triples after zero operands. 

| | 

| MOVEPC |Moves pseudo-code to output text. 

| | ; 

| PSI. [Adds pseudo-variable marker to stack. 

I 

|RELSTK (LT) | Releases items from ಇರುವು result stack. 

| | 

| SETCPX (LU) {Generates calling sequence for complex * and / ವ ರಷ್ಟ supervises 
| | complex arithmetic. 

I 

| STALRG [Generates pseudo-code to store all arithmetic registers currently in 
| [use. 

| 

| STRING {Calculates result types for string operators. 

| 

| SUBSPT |Inserts symbolic register in subscript triple and puts result in 
| | stack. 

| | 

| SWOP |Interchanges operands and optionally loads first operand. 
ಹಯಾ ಜಾಪಿ ವು ಯುರ ಜುಮಾದಿ ಎನ ಜತ ಮಬ ಯಸ ಮುಖ ಮುಖ UNE eC I ME ie NSN Oe Pt ಎವ ಜು J 


phase LS Lares Directory 


|Adds items to intermediate result stack. 


[Calculate result type and generate code for +, -, *, /, prefix +, 


|prefix -, compare operators, and ADD, MULTIPLY, and DIVIDE 
| functions. 


— — — eee — — — eae ome ond 


{Generates an assignment triple and TMPD in the output text. 
[Sets up dictionary entry for constant operand. 


[Calculates target type and generates assignment triple for 
| conversion. 


[Constructs operand description from dictionary entry. 

|Marks phases wanted/not wanted and releases control. 

[Calculates result type and generates pseudo-code for ** operator, 
|and generates calling sequence to Library subroutines for complex 
|arithmetic. 


|Inserts workspace description in TMPD triples after function, and 
[stacks result. 


[Inserts workspace description in TMPD triples after function, and 
[stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE 
|functions. Adds pseudo-variable markers to stack. 

|Generates fixed binary pseudo-code. 

{Generates pseudo-code for packed decimal operations. 

|Sets up address of pseudo-code instruction. 

[Obtain free floating or fixed arithmetic register; store it, if 


[necessary. 


|Scans text and branches to processing routines. 
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€ Table LV. Phase LV Pseudo-Code String Utilities 


a a ume eere ಕ್‌ ದನ್‌ oe qeu ವಾ್‌ ಧಾವನ ನಾನ MSIE. 1 
| [Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
Sa EPIS ee a a ee a D ae a eee 
|Initializes module; releases | STRUTO | None | 
[control to next module | | | 
eee 2+ = === === =f 

| | ೮೦7೪೮೫೬೨ data item to string; |STRUT1 {SCAN (KT), STRUT2 I 
{calculates string length I l | | 
}------------—----------------------}--—------------} ----------------------------------4 
|Prcduces a string dope vector | STRUT2 | None | 
(description from a standard string | | | 
| description | | | 


Table LV1. Phase LV Routine/Subroutine Directory 


ನಾರಾ et ರಾರಾ IDE IE LA LEE LC QU EC CC RCM E cM M eg ae M CL ದ್‌್‌ 


| Routine/Subroutine | Function | 
SI ie groscet than 230, Add if necessary, | 
| | [generates fixed length calling sequence. | 
| LSUT22 [Tests whether string dope vector result is required. | 
| LSUT26 ಸಾ any assignment and TMPD triples. | 
| LSUT27 [Sets up assignment and TMPD triples. | 
| STUTO |Initializes module; releases control to next module. | 
N, TERE data item to string type; calculates string length. 
mm ER Strinq dope vector description from standard string 
| | description. | 
ern ಸಾರಾ vector to STRUT1. | 
[257032 ವರಾತ vector to 5878೮72. | 
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@Table LX. Phase LX Pseudo-Code String Handling 


ae a ee ee ee ee ee ge ವ 1 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
MI 
| |Initializes phase, scans text and  |BEGIN | FUNPT, SCAN (KT), STROP, | 
[branches to processing routines; | | 5೮8527, TMPDT | 
[releases control to next phase | | | 
| [Processes TMPD triples. Arithmetic|TMPDT |GETMPD, MOVSEL, RELSTK, SCAN (KT) 
|type TMPDs are ignored. String | | SETMPD 


| 
| TMPDs are replaced by the top item | | | 
{from the string stack | | 
4 
| Processes function and function | FUNT |ADDSTK, DICDES, GETADS, GETMPD, 
| [argument triples. Arithmetic type | |MOVEPC, RELSTK, SCAN (KT), SETMPD, 
| functions are ignored. Dictionary | | STROP 
[entries are created for the results| 
lof string type functions. A | 
|library calling sequence is. | 
| generated for the BOOL function | 
[using the mechanism for packed bit | 
|cperations. The result | 
|descriptions are added to the | 
|string stack | 
bc 
| | Processes subscript triples. | SUBSPT | ADDSTK, DICDES, SBGNOR, SCAN (KT) 
|Arithmetic type subscripts are | 
lignored. A symbolic register or | 
jworkspace offset is added to string| 
[type subscript triples and the 
jstring description is added to the | 
jstring stack | 
ಮ ಅದಿ ERES ಹಿತಾಯ ಮಾಜಿ AS 
| Processes string operations CONCAT, | STROP | ADDSTK, DICDES, GETADS, GETADX, 
JAND, OR, NOT and comparisons with | |GETMPD, MOVEPC, MOVSEL, RELSTK, 
| [string type operands. For simple | | SCAN(KT), STRUT(LV), ASSIGN, 
|cases, in-line pseudo-code is | |GETWS4, GETWS8, 58೦೫೫೫, 5೫೦೫೩ 
|generated; otherwise calling | 
[sequences to the library are | 
| 
| 
l 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
4 


| generated. The results are added 


OR UE SPE 
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Table LX1. Phase LX Routine/Subroutine Directory 


|RoUtine/Subroutine| ^ - Fention 

ಬಾಬಾ a to tie intermediate cing ಜಸ 3 

| E j | 

[ADSTR (LY) [Constructs dope vector and string descriptions from a given 

| [descriptor which may describe either a string, or its dope vector. 

assron Vos E an assignment triple and associated TMPDs in the output 
ext. 

| BEGIN {Main controlling routine for phase. 

ಕಚ [Constructs operand description from dictionary entry. 

‘pulse [Processes result returned by functions. 

eos ವು funtion and function argument triples. 

ಜ್‌ [Construct address part of pseudo-code instruction. 

| GETMPD [Constructs operand description from TMPD triples. 

crus ಸಸ 4 bytes of aligned workspace. 

ಚಕ ಚಟಾ 8 bytes of aligned workspace. 

T |Terminates phase at end of program. 

oon ಜ್‌ Library calls for string operations. 

ae (LY) ಡ್‌ pseudo-code for NOT operation. 

lins (LY) | Generates pseudo-code for concatenation operation. 

Ius (LY) {Generates pseudo-code for comparison operation. 

T (LY) related pseudo-code for AND/OR operation. ) 

I |Generates pseudo-code to convert to string. 

ಹ |Moves pseudo-code from buffer to output text. 

ಟು ee SELL triples to output text. 

ಫೌ [Creates MVC instructions. 

ಹ್‌ | |Removes strings from the intermediate string result stack. 

| SBGNER renee next even-odd paix of symbolic registers. 

ಎತ [oss next symbolic register. 

| sucus laeta next symbolic register. 

ಇಟ |Constructs TMPD triples from description. 

lamos wich stri od ಗೆ CONCAT, AND, OR, NOT, and comparisons 

| with string type operands. 

ENS ಜ್‌ subscript triples. 

fee | Processes TMPD triples. 

[zs [sets flags for triple types. | 

Lee nec m i ——— 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


€ Table MA. Phase MA Pseudo-code Translate and Verify Functions 


T i 
[Main Processing| | 
| Statement or Operation Type | | Routine | Subroutines Used | 


+ + 
|Scans source text . |Phase KT (SCAN) |SC1 (KT) | 
mm —— 3 
{Function marker triple (FNC) | FUNC 1502 (KT), SC3(KT), SC5(KT) B 
| processor | l | | 


t + 
[Function prime triple (FNC') | SFNPM {SCS(KT) .: | 
| processor | | l | 


SS SSS 4 


| TRANSLATE function processor |TV10A |TV31A, TV11 | 


| + -+- 

[Creates compile time table Vi ..— |TV13A, TV31A | 
——Á— ಮ ae — P — eka a ಮ —  J——ÓMG À—— ಹಚ ee ee eee 4 

[Converts constant from internal to |TV13A | None i i I 

jexternal form and vice versa | | | 
hh 

{Initializes VERIFY compile time |TV15A - | TV13A | 

| table | | | 


5——— — —————— M ಪ ಪಪ ಮಯ್ಯ 


|VERIFY function floating table | TV17A | MV3 (KT) | 1] 
| build | | I 


EE SE ESE NE INC RESET a ed 


| Pseudo-code build for VERIFY [TV18A [MV3(KT) . | 
| function | l | | 
———À — —— ದಾರದ ದಾ — — a 
[Floating table build for TRANSLATE |TV21A | MV3 (KT) : | 
md mem mend 
| TRANSLATE function in line code 1717228 | MV3 (KT) — | 
-————-----—- ———————————————————— 4 ———————————--- ———-—-—-——-—-—-——-———-----------------—-4 
[VERIFY function processor | 17728 | |TV11, TV31A > | 
[Tests for duplicate character  |PTTRAN | ERROR | 
| constant ಳ್ಳ | i | ^ | 
——— —— nnn nnn nn nnn — — —À— 
|Floating table search |TV31A | | None l i { 
mm 
| Library calling sequence generator |TV35A | MV3 (KT), TEMPW i | 
hl 
| Updates function dictionary |TV38A | None | 
[reference | | | 
hl 
obtains workspace ere | None i | 
ಓವ ನಾ ಹೂತ ತಾಕಾ ಮಿನ peri neces ಹೊಸಾ ಹೂವಾ ಯ ಸ ತೆ 
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€ Table MA1. Phase MA Routine/Subroutine Directory 


Processes VERIFY function 
€ 


| 
[1V31A 


|Rowtine/Subroutine| = = |. Function 1 
ನಾಂ ನನವ 
| FUNC | Processes function marker triple (FNC) | 
| PTTRAN |Tests for duplicate character constant ! 
| 5೧೦೦೫ DECRE double coma triple (FNCM) l 
E | Processes function prime triple (FNC') l 
oes jObtains workspace 
US [Gets temporary workspace 
EA | Processes TRANSLATE function | 
roi [Creates compile time table i 
ತನ ಜ್‌) constant from internal to external form and vice versa | 
(1V15A error VERIFY compile time table | 
| TV17A ree VERIFY function floating table | 
[TV18A tid pseudo-code for VERIFY function | 
2218 | ೫೩4265 floating table for TRANSLATE | 
17೪224 {TRANSLATE function in line code | 
೪24% | | 

ಜ್‌ for floating table | 
[as oS library calling sequence 
eee updates function dictionary reference ; 
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€ Table MB. Phase MB Pseudo-code Pseudo-Variables 


ವಷವ ತು EEE IC ಪಡ ಪಚಕ fni MM HM Md arab pi, gen! SGT OIL TREY TEC Edu EE ಷುಷುಕ ಘು. 


| |Main Processing| | 


|entry and aenerates code for data | 
[list items | | 
}--------------------------- --------} --—-------- =~} += ದದ Y —— "229. 
{Assign completes stack and rescans |MB0013 |DRFTMP, MMV3A5, MVTMPD, OUTMPD, | 
|group of assignments, putting | | TARGET 
{target descriptions out in correct | 
|sequence; generates code for | 
|pseudo-variables in stack | 

+ 


| Statement or Operation Type | Routine | Subroutines Used | 
eee hd 
| {Scans scuice text |IMBOOOT |SC1 (KT) | 
warn nn nnn fn nen nnn head 
{PSI operator; starts new entry in |M20011 | SWITCH | 
|stack for pseudo-variable | | | 
~--------------------------------- eed 
| PSI' operator; completes stack |MB0012 | SWITCH, TARGET 
| 
| 


| 
| 
~---~----------~-------------------}--------------- he 1 
{Multiple assign; places only target|MB0014 | MVTMPD | 
{descriptors in stack | | 
——— — ————— ವವ ವಾನಿ q------------2-2-224-----------—----------------------- 
[Constructs pseudo-variable stack (MB0020 | MVTMPD 1 
| entry | | 
bo $--------------- }---~----+---—- -------------------- 1 
|Places temporary descriptor in | OUTMPD | MMV3A5 | 
| output l | | 
———ÁÁ—  — nn nnn nnn nf nan nn — —— —— nnd 
{Gets temporary workspace for | TARGET | GETWKS | 
jeseudo-variable, if necessary | | | 
ತಾವು aaa cece ಕಾ ತಾಚಿ ಹವು ಜಾಯಾ ವಾವ. ಚು ಪ ಎ cusa red s ಎ ಪಾವಾ ವಜ J 
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Table MB1. 


[Routine/subroutine ^ ^ Famotion 771 
lurp ^ 7 ^ Makes ಯ deacliptor fica M dickionaryeterence, —— ^ ^ ^] 
lasers |Obtains workspace to accommodate a variable of given type. | 
es puer source text. | 
me | Multi-switch for triples of interest. | 
PET [On reaching end-of-text marker, releases remaining block, and | 
I {releases control of phase. | 
TOT |PSI operator; starts new entry in stack for pseudo-variable. | 
errs. |PSI' operator; completes stack entry and generates code for data 
| (list items. | 
ಚು | ASSIGN; completes stack and rescans group of assignments, putting | 
| jtarget descriptions out in correct sequence, generates code for | 
| |pseudo-variable in stack. | 
scott ಕ್‌ ASSIGN; places any target descriptors in stack. | 
| 180020 {Constructs pseudo-variable stack entry. 
ess [Resets input pointer to start of sequence of ASSIGNS. | 
| ee ASSIGNS and associated TMPDS from stack in reverse order. 
ET [Tests for end of stack. | 
piste ಎ for pseudo-varaible 7೬೧೧. | 
ಸ] TOREM code for pseudo-variable. | 
ಚಃ | ೫೫೦೪೫೮೨ one triple to output. 
ಜೆ |Places temporary descriptor in stack. | 
ooren |Places temporary descriptor in output string. 
ಜೇ {Changes scanning table. | 
[TARGET [obtains temporary workspace for pseudo-variable, if necessary. | 
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Phase MB Routine/Subroutine Directory 


@Table MD. Phase MD Pseudo-Code In-Line Functions 


|Main Processing] l | 


| Statement or Operation Type | Routine | Subroutines Used | 
| [Scans text |Phase KT (SCAN) | None | 
|---------------------------------—-} ---------------} ---------------------------------- 4 
| Builds up function stack | LFARIN | None | 
IE CN ಸಾಯ P Eo lU a EEEE EEEE DOC E E 1 
{Builds up argument stack | LFCOM | None | 
ed 
| |Moves generated code to output | LFMOVE | MV3 (KT) | 
| block | | | 
| -----------------------—-----------}---------------} -----------------------------------4 
|Generates in-line code and | LFEOF 2 | SNAKE , ROPE | 


| library calling sequences | | | 


Table MD1. Phase MD Routine/Subroutine Directory 


C mmt ಬಾವ nme — c A a ಲಾ UND UND ಆನಾ ಆದಾ ಆಧಾ AND ಆಲಿ ee ನಾ ಆವಾ ಇದನು ಆವಾ ee UD VID UP ಸಾನ ಪಾಪಾ ಆನ GU QU a re ಆನಾ ನಾರಾ M e D um V ow 


| LFARI1 [Continues scan for in-line functions. | 
 |LFARIN (೨೬4369 up function stack. 
oe TERT up argument stack. | 
| LFDR | |Unpacks dictionary reference of argument when argument triple RON 
| LFEOF2 calls subroutines to generate in-line code. | | 
| LFIGN RN triple from text if inside an in-line function. | 
1035 andis if IGNORE triple or not an in-line function. | 
| ROPE eem code for STRING function. | 
| SNAKE [Generates code for ADDR function. | 
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e Table ME. Phase ME Pseudo-Code In-Line Functions 


|character or aligned bit string, the second argument is constant and 
{the third variable. 


pure Uc eI Ie eec ನರಾ puede ಭೂಪ ಸಟ ಎ aay 
| f {Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
~----------------------—---------- J 
| [Scans and moves text {Phase KT (SCAN) | 5೦೩, 5೦2, 5೦೨, 5೦5, ೫೪3 | 
————————————————————---—--—————————L--------------- oo ee —— — M — — ಪಾಷ — A— ಇದಿರಾ DÀ oo oe QA HX ಘಪ್ರಪ A oe Am oe ಪಪಂ ಪಾಥ್‌ uium aue ಚಾ MEA oe 
| Builds up function stack | SFUNC | ZDRAOF i 
}--------------------~------------— $--—----------- $--~-~------~~---------------------- 1 
|Constructs result TDB and branches |SFNPM |MS4,MS5,MSB, RTAA, RTAB, INDEX, | 
|to routines for INDEX, UNSPEC, | | ILUNSP, EVENT,ZDRAOF , STATUS | 
|COMPLETION, and STATUS | | | 
hh 
{Deletes current triple |SIGN | None | 
pom nn nnn nn nnn nnn fn nnn nnn fama nnn -—-—----------------—----—- 1 
[Builds up argument stack | SDCOM ` | ZDRAOF | 
}----------------------- —--------—}--------------- ------~----------------------------| 
{Inspects arguments and branches to |MSB | RTB, RTC, RTD, RTE, RTF,RTG, RTH | 
lappropriate subroutine | | | 
Leu eee ee EA ತೆ ಮುನಿ een ene ಎತ ———————————ÓÀ J 
Table ME1. Phase ME Routine/Subroutine Directory 
ಪಾಲಯ AR A a aa a aaa ಲ Rs a | 
| Routine/Subroutine | Function | 
bod 
| EVENT | Generates in-line code for COMPLETION function. | 
| | | 
| | | 
| FINISH {Passes control to the next phase. | 
i | 
|ILUNSP |Generates in-line code for the UNSPEC function. | 
| 
| INDEX |Generates in-line code for optimizable invocations of the function | 
i | INDEX. i 
| | 
[M58 |Calis subroutines to generate in-line code. | 
l s 
IMSG |Resets current flag and continues scan. 
| 
| RLCTOF |Releases module and passes to next phase. 
| | 
| RTAA [Generates in-line code when the result is in a register by name, and 
i {the second argument is constant. 
| | 
| RTAP [Generates in-line code when the result is in a register by name, and 
| |the second argument is variable. 
| 
| RTB [Generates in-line code for the case when the first argument is an 
| laligned bit string, and the second and third arguments are both 
| | constant. 
. 
| RTC |Generates in-line code in the case when the first argument is a 
| 
| 
| 
| 
| 
| 
l 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 


RTD |Generates in-line code when the first argument is a character or 
{aligned bit string, the second is constant and the third is not 
| present. 

RTE |Generates in-line code when the first argument is a packed bit 

| jstring, and the second is constant. 

| | 

| RTF |Generates in-line code when the first argument is a character 

| |string, and the second and third are both variable. 

do be ee a nn ene 
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Table ME1. Phase ME Routine/Subroutine Directory (continued) 


ಚಾರ ಸಾವರ್‌ 
| Routine/Subroutine 


$ 
| 


Function 


ಕಾ 


————————————— A! 


|RTG 


| ZURCOF 


heen ane en — ಆವಾ ಎ. —ÁÀ ema — -——A—————————-— uum te ee gre ee a QUID GIAO ಆದರು cto IND END Oe ಬಂದಾ ವರಾ ANT VD ಆವನು QUAD QU MD ಆದಾ dm) «NI. dM aud) GI CM «DUO Ce ee ನಾರ ನಾ ಉದಾ ಇನಿಟು ವಿದಾ D ee ಆನಾ ಆನಾ ms ಪ ee ಮಮಾ UO ee ae 


|Generates in-line code when the first argument is a character 
[string, the second is variable, and the third is not present. 


RR in-line code when the first argument is a bit string, 
{the second is variable. 

| Error routine. 

[Gets the next even register and sets the even/odd bit on. 
[Gets the next odd register and setz ‘he even/odd bit on. 
[Gets the next available symbolic unassigned register. 
{Scans for the next triple of interest. 

[ಚತ pointers and text blocks. 

|Builds up argument stack. 

{Generates in-line code. 

[Builds up function stack. 

prooem current triple. 


|Generates code for STATUS function. 


[Constructs a string dope vector. 


[Generates code to place the address of the first argument plus a 


[literal offset into a symbolic register. 


|Generates a ST and DROP instruction, optionally followed by a MVI 


| instruction. 


| 
| MVC instruction. 

| Generates two STH instructions, followed by a DROP instruction. 
| Generates an RX instruction to operate on a TDB by a register, 


loptionally followed.by an instruction to drop any register used 
{addressing the TDB item. 


ಜಾಜ್‌ SR, SLDL, OR instructions. 

|Generates SR, SRDL, OR and DROP instructions. 
{Calculates correct values for ILEN, IOFF and Y. 
|Converts a dictionary reference to an absolute address. 


[Releases scratch core. 
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[Constructs a dictionary entry for the constant JJ, and generates an 


and 


in 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
ತ 
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_ e Table MG. Phase MG Pseudo-Code In-Line Functions 1 


porc eC m qu e eue em ಸತಾ ಸಸಸಕಸತ a c m cvm S 

[Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
|------------------—---------------}---------------}----------------------------------- 
{Scans text | PHASE KT (SCAN) | ೫೦೧೮ 
bo 
{Builds up function stack | LFARIN | None | 
-n qm —— IP — — a ಸಾಹಾ ಪಾಪಾ e M S ಸಚ ಹಾಸ ee ಪಾನ — ee ee a ee ಪಪೂ —— ———— ಘಾ ಖಾ ಚಾಹ ~~ ———À an ue ಅಮಾ ಶಾಖ am ಆನಾ ಪಚ ಘೂ ಅಬಾ ಅವನಾ A ಆನಾ ಆರಾ ee ಎವಾ ಜಾ ee ee ಆನಾ ಸ ಲನ — ಆನಾ ow a e— — 1 
[Builds up argument stack | LFCOM | None | 
foe fon nn nnn nnn ——- 1 
{Move generated code to output | LFMOVE |MV3 (KT) | 
| block. | | | 
re et a eaten et een ಸಾ E LEE 
{Generates in-line code | LFEOF2 | ABBFLL, ABBFLS, ABSFB, ABSFD, | 


| |ALLOC2, CEILB, CEILD, CEILL, | 
| | ೮೫225, CMPLXB, CMPLXD, CMPLXL, | 
| | ೦೫೩೦೫೫, CNVINT, ೮೦೫೮೦8, CONJGD, | 
| [CONJGL, CONJGS, ERRFUN, FLOORB, | 
| |FLOORD, FLOORL, FLOORS, IMAGB, | 
| | | IMAGFD, IMAGL, IMAGS, REALB, | 
| |REALFD, REALL, REALS, SBGTNR, | 
| | TRUNCB, TRUNCD, TRUNCL, TRUNCS, | 
| | 7೫508೦, UTTEMP | 
4 


| 
| 
| 
| 
| 
l 
| 
| 
| 
ಕೊಟ್ಟ ಷು ಎಷ್ಟು ee ee ಸಾ ಇಷಾ ಸಾ ಅಟ ಹಾವು ವಾತಾ ಜಣ —— 


Table MG1. Phase MG Routine/Subroutine Directory 


ee aa i aa ಹಕ್ಕ ಅಕಾ ಜತ್‌ ರದ ರಾಮಾ ನಾರಾ REESE 1 
| Routine/Subroutine | Function | 
el 
{ ABBFLL [Generates in-line code for ABS function with long floating-point | 
| | argument. | 
l | 
| ABBFLS |Generates in-line code for ABS function with short floating-point | 
| | argument. ಗೆ 
| | 
| ABSFB {Generates in-line code for ABS function with fixed binary argument. | 
| l 
| ABSFD {Generates in-line code for ABS function with fixed decimal argument. | 
| | | 
| ALLOC2 | Generates in-line code for ALLOCATION function. | 
| | 
[CEILB (MH) |Generates in-line code for the CEIL function with fixed binary | 
| | argument. | 
| | | 
| CEILD (MH) {Generates in-line code for the CEIL function with fixed decimal | 
| | argument. | 
l l 
|CEILL (Ma) |Generates in-line code for CEiL function with long floating-point | 
| | argument. | 
| | 
[CEILS (MH) [Generates in-1ine cuue for the CEIL function with short | 
| | floating-point argument. | 
| | | 
| CMPLXB {Generates in-line code for COMPLEX function with fixed binary | 
| | argument. | 
| | l | 
| CMPLXD {Generates in-line code for COMPLEX function with fixed decimal | 
| | argument. | 
| | | ' dl 
| CMPLXL | Generates in-line code for COMPLEX function with long floating-point | 
| | argument. l 
| | f | 
| CNASTR |Constructs assignment triple and associated TMPDS. | 
| CNVINT {Converts a decimal integer constant to fixed binary. | 
ಯವನ ಸುವ ಲೆ... ಹಾಹಾಹಾಹಾಹಾ ಕತಾ ಹತಾ ಹಾಡ ತ ಡುವ —————————— 1 


Table MG1. 


2S —À— — AQ — a SS SS a A SS ಬಾ ಜಾ ಸ್ಯ au ಬಾಮ ಆನಾ mms ED ಎಂ ಆಜಾ ಆನಾ ಚಪ ಪಾ RUD ಆದಾ ಆರಾ ವಾ Se ಆನಾ ee ee ee ee UND ees ಚತ qum ಆನಾ ಆರ ಆನಾ ಆನಾ GR um re uum qum ee ಆನಾ UND AUD ಇನೂ (UD VEND GED OO ಆನಾ ಳದ @ we ee we ee wee 1 


[Routine/Subroutine| 


| CONJGB 
| 
| CONJGD 
| 
CONJGL 


CONJGS 


ERRFUN 


FLOORS 
FLOORD 
| FLOORL 
FLOORS 


IMAGB 


| 
I 
| 
| 
| 
| 
| 
JE 
| 
| 
| 
I 
| 
| 
I 
| 
| 
| 
| 
| 
| 
|I 
| 
| IMAGFD 
| 

| 

| 

| 

| 

| 


| LFIGN 


L 
LFSPEC 
R 


| 
| 
| 
| 
| 
| 
| 
| 
| REALB 
t 


(MH) 


(Md) 


(MH) 


(Mi) 


Phase MG Routine/Subroutine Directory (cont'd) 


Function 
[Generates code for the CONJG function with fixed binary arguments. 


[Generates in-line code for the CONJG function with fixed decimal 
| arguments. 

| 

|Generates in-line code for the CONJG function with long 

| floating-point arguments. 


|Generates in-line code for the CONJG function with short 
| floating-point arguments. 


|Aborts if Phase IM discovers an error in a function. 


|Generates in-line code for the FLOOR function with fixed binary 
| argument. 

| 

|Generates in-line code for the FLOOR function with fixed decimal 
| argument. 

| 

| Generates in-line code for the FLOOR function with long 

| floating-point argument. 

| 

| Generates in-line code for the FLOOR function with short 

| floating-point argument. 


|Generates in-line code for IMAG function with fixed binary argument. 


| 
|Generates in-line code for IMAG function with fixed decimal 
| argument. 


| 
|Generates in-line code for IMAG function with long floating-point 
| argument. 


| 
| Generates in-line code for IMAG function with short floating-point 
| argument. ' 


{Builds up function stack. 
{Continues scan for in-line functions. 


[Builds up argument stack. 


|Unpacks dictionary reference of argument when argument triple found. 


|Calls subroutines to generate in-line code. 

|Depending on start of argument list, branches to produce in-line 
| code. 

ಜಾಸು triple from text if inside an in-line function. 

|Moves generated code to output block. 


|Pranches if IGNORE triple or not an in-line function. 


[Generates in-line code for REAL function with fixed binary argument. 
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Table MG1. Phase MG Routine/Subroutine Directory (cont'd) 


| 
| 
| 
| 
| 
[ 
| 
[ 
| 
| 
j 
| 
| 
! 
| 
[ 
-= 
[ 
| 
l 
| 
| 
| 
| 
| 
| 
i 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
[ 
[ 
l 
| 
| 
! 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
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| 
| 
| 
| 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


286 


| floating-point argument. 


{Generates in-line code for the UNSPEC function. 


[Gets a required amount of temporary work space. 


ಭಾಷಾ ಭು th rae crm UE n ye ee ae ey ee ಅತಾ eee Oe ate ee ee eS TCO EM 1 
| Routine/Subroutine | Function | 
p----- ಸ ಲಲನ ವವ ———---------------—---—-—-------—------------------ 1 
| REALFD [Generate in-line code for REAL function with fixed decimal argument. | 
“| .* | | 
| REALL [Generate in-line code for REAL function with long floating-noint | 
| { argument. | 
| | | 
| REALS [Generates in-line code for REAL function with short floating-point | 
| jargument. | 
| | 
| SBGTNR [Get next available symbolic register. I 
| | 
| TRUNCB (MH) | Generates in-line code for the function TRUNC with fixed binary | 
| | argument. | 
| | 
| TRUNCD (MH) [Generates in-line code for the TRUNC function with fixed decimal | 
| | argument. | 
I | 
|TRUNCL (MH) {Generates in-line code for the TRUNC function with long | 

| | floating-point arguments. | 
| | 
| TRUNCS (MH) | Generates in-line code for the TRUNC function with short | 
| | 
| | 
| | 
| | 
| | 


bes 


®Table MI. Phase MI Pseudo-Code In-Line Functions 2 


a ಸರಾ ಭಕ ಹತಾಶ ತಕರ et pT eM ae ee eee OR ನಾರಾ aga Tm ees ee eee ಈವ 
|Main Processing] | 

| Statement or Operation Type | Routine | Subroutines Used | 
———————— — M ———Q 

| [Scans text |PHASE KT (SCAN)|None | 
——— À———— — ---- --}------------ =~} ------- +--+ ——-] 
{Builds up function stack | LFARIN | None | 
~--------—--------~--------------- 4 --------------- }---------------------~-------------- 4 

| Builds up argument stack | LFCOM | None | 
----7--—--——-—-—----—-——-—-—---————————--—---—----——---—-------------——-————-—-—-—--——--------4 
| {Move generated code to output block|LFMOVE |MV3 (KT) | 
}-------------------—--------------- — ಬಿ —À— ae ದಾದಾ ಆಜಾ — ea — — ee — M c— M ಅಪಪ — AM SEM aug UM ಅಚ ಜಘಾನ MED Gum i ಪಾಂ ಜಪವ CR ee amm 
|Generates in-line code | LFEOF2 |MAXB, MAXD, MAXL, MAXS, MINB, MIND, | 


| | |MINL, MINS, ೫೦೦೫8, MODD, ೫೦೧೬, MODS, | 
| | | ೧೦೮೫೦೫, ROUNDD, ROUNDL, ROUNDS | 


ಆ ae a oe ವಾವ ಅ es ಯೊ ae aa ae ee e ಕ ae hm ಆಣ a we ae ಆಹ ee =a ee ಆ ——  — — — — J 


Table MI1. Phase MI Routine/Subroutine Directory 


SSS TERR CUM aucem qmm T cmm ದಾ ನಾರಾ ಜನದ IT 1 
|Routine/Subroutine| Function | 
wa nnn == === a nnn nnn nnn nnn 
| LFARIN |Builds up function stack. | 
l | | 
122008 {Builds up argument stack. | 
| 

| LFEOF2 [Calls subroutines to generate in-line code. | 
| | 
| LFMOVE {Moves generated code to output block. | 
| 

{MAXB/MINB (MJ) {Generate code for MAX/MIN function with fixed binary arguments. | 
| | 

|MAXD/MXND (MJ) [Generate in-line code for MAX/MIN function with fixed decimal | 
| {arguments. | 
| | 
{MAXL/MINL (MJ) [Generate in-line code for MAX/MIN function with long floating-point | 
| | arguments. | 
| | | 
|MAXS/MINS (MJ) [Generate in-line code for MAX/MIN function with short floating-point | 
| | arguments. | 
| | 
|MODR (MJ) | Generates in-line code for MOD function with fixed binary arguments. | 
| i 
18೦೦೧ (MJ) |Generates in-line code for MOD function with fixed decimal | 
\ | arguments. | 
| | 
111೦0೫. (MJ) {Generates in-line code for MOD function with long floating-point l 
| | ೫೫೮೫೮೧೬೨. | 
| | 
|MODS (MJ) |Generates in-line code for MOD function with short floating-point | 
| | arguments. | 
| | | 
| ROUNDB |Generate in-line code for ROUND function with fixed binary argument.| 
| | | 
| ROUNDD {Generates in-line code for ROUND function with fixed decimal | 
| | argument. | 
| | 
| ROUNDL [Generate in-line code for ROUND function with long floating-point | 
| | arguments. | 
| | | 
| ROUNDS [Generate in-line code for ROUND function with short floating-point | 
| | arguments. | 
| aa ಮಮನ ಮಾವು ಸಜ ಎಎ ವ 
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€ Table MK. Phase MK Pseudo-Code In-Line Functions 3 


re aa ಕಾಕಾ ವಾಸಾ ದಾರಾ Lm we ILE ರಾರಾ m P E pg E ನಾ NITE mmm 


| |Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 


a en rr rrr rr re nf rr ಕಾರು rn rr en =f 


| [Scans text | PHASE KT (SCAN) | ೩೦೧೮ | 


-——-—-----——-------2-----------------4---------------—L-------2--2-----2---22-2---2---.-------- 
|Builds up function stack | LFARIN | None 1 
/G—— — — ———————————————  —Á&! 
{Builds up argument stack | LFCOM | None | 
:——— —— fo nnn nnn nn nnn nnn E. 


| [Move generated code to output block| LFMOVE |MV3 (KT) | 
Bh — — — — — a a — ಪಜ a ಪ — oe ಇಷಾ ಜಾ 


{Generates in-line code 


| LFEOF2 | DIM, HBOUND, LBOUND, LENGT, SIGNFB, | 
I | | SIGNFD, SIGNL, SIGNS, FREBIF | 
————— —— — —— ——À— (€ —— (rv eR a eae et J 
Table MK1. Phase MK Routine/Subroutine Directory 
poesie me duse ನಾನಾ ಮಾಲ ಮಾತಾ ರಜಾ ಲಾವ T eve 
| Routine/Subroutine| Function | 


MSS 


| DIM |Generates code for DIM function. | 
ಚು | Generates code for FREE function. | 
| HH GONG ಜ್‌ code for HBOUND function. l 
for ಜ್‌ code for LBOUND function. | 
ires IE code for LENGTH function. 
oer oe up function stack. 
oe aes up argument stack. | 
ಜೆ | ೮೩% £ subroutines to generate in-line code. l 
ಬಾಟ್‌ ‘saves generated code to output block. | 
€ ಹ code for SIGN function with fixed binary argument. | 
ಚಾ |Generates code for SIGN function with fixed decimal argument. | 
i SN code for SIGN function with short floating point — 
| SIGNS ಕ್‌ೆ code for SIGN function with short floating point argument. | 


ಗ a rem m m e a i a ee ee we wn ee em 
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@Table ML. Phase ML Pseudo-Code Calls and Functions 


|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
————— fd 
| [Scans text | PHASE KT (SCAN) | ೫೦೧೮ | 
}---------—----------------------— +--—----------- }---------------------------------- 4 
|Identifies argument of procedure | FPFNAR | None | 
{invocation | | | 
———— ವಾಸಾ a ae Á— O ca a ವಿಮಾನವೂ ವಲನ ಸಾಸ ಸವ: 4 
[Selects generic built-in function  |FPBIF | FPARD1 | 
~---~----—-----~-------------------}----------—--- $-~------------------------------—-] 
|Selects PL/I generic entry name | FPGAR |FPARD2, FPARD3, GNSECO | 
ಓದಿ ವಾದಿ ಹವ ದವಾ a at ಪಿಯಾ ಎವ; J 
Table ML1. Phase ML Routine/Subroutine Directory 
ee ea Uu ee er Se ye m e ವಾದ ರೇನಾ 1 
| Routine/Subroutinr | Function | 
~----~+--- +--+ +--+ +--+ ee. + + +--+ +--+] 
| FPAO1 {Scans for next argument. | 
| | | 
| FPARD1 {Obtains parameter descriptions relating to built-in function | 
| | arguments. | 
| | | 
| FPARD 2 |Obtains successive parameter descriptions relating to the entry | 
| {description of a PL/I generic procedure. | 
| | 
| FPARD3 {Obtains and stacks full parameter description of a PL/I generic | 
| | procedure. | 
| | 
| FPBIF {Selects generic built-in functions. | 
| | | 
| FPEPCO [Constructs an entry parameter. | 
| | 
| FPFNAR {Identifies arguments of procedure invocations. | 
| | | 
| FPGAR [Selects PL/I generic entry name. | 
| | | 
| GNFM2 |Replaces generic reference testing for uniqueness. | 
| | | 
| GNSECO |Makes entry in stack of parameter descriptions. | 
CSL ವಾ ed 
e Table MM. Phase MM Pseudo-Code Calls and Functions 
[eme c ecol ee ee cepe Ue ee ee ಕಾರ್‌ a ಪಪ UE 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
— — — — — —- 1 
| [Scans text ' | PHASE KT (SCAN) | None | 
{Scans list, counts arguments and | CFCALL |CFARID, CFFBIR, CFFDVS, CFMVTR, | 
[identifies storage class | | CFMVCD | 
-----l----—----—---—--—-------—-----——--4---——--------—-----—b-----—-—--————--——--------——----—-—---—- 
[Rescans list and generates calling |CFCFSS | CFARHA, CFCALP, CFBIFH, CFMLBR, | 
{sequence for library routine | |CFMVCD, CFNEST, UTTMPW, CFAIF1, | 
| { | BASED | 
"c RI Sk Sad 


Chapter 3: Fiowcharts, Tables, and Routine Directories 289 


Table MM1. 


[Routine/Subroutine| =. function 7-77 
[BASED (MO — [Generates relocation code for based variables. 7—7 
BEGIN {Initializes phase. 

|CFALF1 (MO) |Places address of invoked routine at the head of its argument list. 
| CFARHA OMNE calling sequence. 

ಆಸಾ (MO) counta arguments and sets STATIC/AUTO flag. 

errs | Further built-in function identification with relevant parameter 

| | setting. 

for |Restores previous environment. 

ogi {Tests nature of function found. 

— EN pointer to start of invocation. 

[escas | 5೦೩೫೮ lists, counts arguments, identifies storage class. 

als | Completes calling sequence and, if necessary, generates code to 

| linitialize dope vector. 

ease oe for nested function. 

ತನ |Rescans list and generates calling sequence for Library routine. 
ಸ ಗ್‌ vector after first scan. 

Me A E built-in functions, sets parameters for calling sequence 
| | generation. 

‘combs (MN) nes output text area for generation of code to initialize dope 
| | vector when a function returns a string. 

(aerie ES code to set up result dope vector. 

eros pem code to place result address in argument list. 

ಚ (MN) {Generates code to move a skeleton parameter list which is greater 

| |than 256 bytes. 

ಸಜ {Generates pseudo-code into the output text block. 

poner [Generates triple into the output text block. 

ಆ |Handles a nested situation. 

(0೫೫007 | parameters to produce special calling sequences. 

Jones (MN) (LLCS CEE one word of workspace. 
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Phase MM Routine/Subroutine Directory 


ಸ SS mms NE AND auum SE ದಾ SS GS ತಾವ ae D ap SE ES cum SS ಸಹನ SD ee EE cup SE ee ee ee ee ಪಾಶ ಪಾಶ ee oe 


€ Table MP. 


Phase MP Pseudo-Code BUY Reorder 


[Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 


}--—------—------------------------} ---------------} ------------ = --==-------------+--- 


| [Main scan routine for phase | MP1 150882೨, ZDRFAB, ZTXTRF, ZUERR 
LÀ —Á am ಆಸಾ ಅಹಾ ಹಾ ಅಹಾ ಖಾ ಆಹಾ ee oe — eee ee a ees ಮೂ fe ee ಖೂ ಪಾ ಹಾಸ ಹಾವ ಫಾ ಇನ Lll ಮ ನಮನ ನಮ ea uiam ಸಾನ ವ ಮಾ Gu quiam, qus d 


€ Table MP1. 


qe = ——u— NY au RSD AND ರಾಹಾ Rap Se EP ಆಸಾ ಆನಾ ಲಾ GET ಆನಾ GED DID UID ay ಆನಾ AUD EE ಆನಾ ಬಾ ae 


Phase MP Routine/Subroutine Directory 


|Routine/Subroutine| Function | 
10805 [Adds SELL dictionary reference to SELL list if not already there. | 
Fen (Main controlling routine for rearranging BUY and SELL statements 
| |involved in obtaining VDAs for adjustable length string temporaries. | 
ies SS EOP triple. Releases control of phase. 
ups | Processes BUYS triple. : 
| MPUA ಅರಸನ BUYX triple. 
[kee {Continues text scan if not string or arithmetic data, or not | 
| [structure. | 
bas ಆಸು scan of text. i 
ee ಜ್‌ BUYS triple. | 
| p27 ಸಾಸ BUY ASSIGN triple. i 
928 Nn BUY triple. | 
229 ಜಸ SUBSCRIPT triple. 
30 ಗ ASSIGN triple. | 
mm ಜ್‌ top stack entry. | 
ups {Tests triple for BUYX, and processes. | 
lupa? | Sca for BUYS, BUY, and SELL triples. | 
hs |Processes SELL triple. 
ಜಾಗ |General scan routine. i 
ಟೂ |Converts dictionary reference to absolute address. 
"ರ್‌ [Changes absolute address to a text reference. | 
LEUERE [Wakes error message entries. | 
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€ Table MS. Phase MS Pseudo-Code Subscripts 
ee ee a ae rae eee ee 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


he 


| Scans text | SBSCAN | None | 
hd 
| ೮೩೫೦೪3೩1೮5 element offset | SBSTIH | SBASS, SBCOBI, SBGNOR, SBMVCD, | 
| | |SBNEST, SBSUBP, SBSUDV, SBXOP, | 
|! | | UTTEMP, SBOPT, SBFSUB, UTTMPH | 


|----------------------------------- $--------------- ho - 1 
[Checks subscript range | SBSBRN | None 


| 
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€ Table MS1. 


Phase MS Routine/Subroutine Directory 


[Routine/Subroutinel = Function i 
ರೋ bacs ಜರ್‌ Qu M deinme| ೊೈಾ೯ 
|SBCOBI (MT) T subscript to binary integer. « | 
T (NT) ಹುಸ COMR triple 
|SBERR (MT) ಚಾ error message into dictionary. | 
"ಜೂ ಸ the FIRST flag setting if it is not already set, and exits | 
| [unless FIRST was unset on entry | 
ಜಸು (MT) eres an odd symbolic register. | 
ED (MT) NS pseudo-code and moves it into output text block. | 
ಕ್‌ (MT) eee nested subscript situation. | 
| [೫9೦೫೫5 (MT) ಸಹಸಾ OFS triple | 
EBEN [Calculates element offset in optimizable cases. 
| SBSBRN (MT) [Checks subscript range. 
ER ES to KT for scan. | 
| SBSTIH NS code to calculate element offset. | 
ಆಕ್‌ TRE array name. 
ಆಸಾ (MT) ana end of subscript list. | 
— noe code to set up the dope vector of an array of adjustable | 
| | strings. i 

| SBS05 ledere ca code to multiply subscript by multiplier. | 
eius ಸಟ code to convert to fixed binary. | 
ಜೆ [Checks for occurrence of subscript. | 
1485623 [Generates code to multiply subscript by 4 or 8. | 
i |885059 [Generates multiply halfword code modifications 
poo [Scans for comma, subscript prime, or subscript triple. 
| scan ter) {Controlling scan of text. | 
|UTTEMP (MT) jAllocates workspace. l 
| [21700 arr) Toets two bytes of storage on a halfword boundary | 
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€ Table NA. Phase NA Pseudo-Code Branches, ON, Returns 





(Se ee ae re ee ಕಾರಾರ್‌ de! Ne a ee en ಅ ಕಾರಾ 1 
|Main Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
——— ea eo os Se AL LS SS —— ay SS ee 1 
{Initializes text block | NAINIT | SCINIT (KT) | 
| --~--------------------------------}--------------- }~-----------~---------------------- 1 
|Scans text for next triple of |NASC1, NASC2, |SC1, SC2, SC3 (all in KT) | 
linterest to user | NASC3 | | 
bof — — d— - 1 
|Processes STOP statements | STOP | NAUT1 | 
~--------------------------------—}--------------- }~---------~------------------------4 

| Processes EXIT statements | EXIT | NAUT1 | 
hohe 1 
|o IF triples | IF |NAUTD, NAUT16, NAUT21, ZSTUT1 | 
bom 
| Processes ON triples | ON | NAUTD, NAUT6, NAUT16, SC5(KT) | 
}-----------------------------------}---------------} --=--------------------------------4 
|Produces Library call at end of |PROCP, 880788 |NAUT1 | 


Jeach PROCEDURE or BEGIN block in | 
| source text | 


| 
| 

~---~------------------------------}--------------- }----------------------------------- 1 
| | Processes RETURN triples | RETURN | NAUT1 | 
~-~-------------------------------- $---------------}-----------------------------------4 
|Processes function RETURN | NA3002 | NAUTB, NAUTCA, NAUT1, NAUT12 | 
|statements for one data type | | | 
}----------------------------------- ho —— 1 
|Processes function RETURN state- 1೫೩3013 |NAUTA, NAUTB, NAUTCA, NAUTD, NAUTF, | 
[ments for more than one data type | | NAUT1, NAUT7, NAUT8, NAUT9, NAUT11, | 
| | | NAUT12 | 
}---------—------------------------- fhe 4 
| | Processes GOTO triples | GOTO | NAUTD | 
eh ho 
|Processes GOLN triples | GOLN | NAUTAS | 

bem 
|Processes GOOB triples | GOOB [NAUT5, NAUTD, NAUT16, SC5 (KT) | 
/————— ——M—M——— I ಪ BÀ 
|Processes SIGNAL triples | SIGNAL | NAUTD, HAUT6, NAUT16, NAUTS8, { 
| | |NAUT10, NAUT21 | 
bo $--------------- }--------------------------------—- 4 
| | Processes REVERT triples | REVERT | NAUTD, SC5 (KT) . | 
ki Sele ame ea eee aS PDC HM le ee De eon Sa ae ee eee J 
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e Table NA1. Phase NA Routine/Subroutine Directory 


| Routine/Subroutine | Function | 
ನಾನಾನಾ ವಾ್‌ 
lagos [Processes GOOB triples. | 
laore TREES triples. 
facie ಸ್‌ GOTO label number (GOLN) triples. 
hi AAT IF triples. | 
[azn [Initializes text blocks. | 
us sei NR SCAN SES |Scan text for next triple of interest to user. | 
aaa | Generates pseudo-code to test switch value at RETURN (function | 
| |value) statement for more than one data type. | 
ತಿ JOE assignment triple to RETURN function result. 
TE aves assignment triple set up by NAUTB. | 
|a OTD npe indicated pseudo-code. 
ಚ್‌ anus pseudo-code to branch to ECU value. | 
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€ Table NÀ1. 


Phase NA Routine/Subroutine Directory (cont'd) 


| Routine/Subroutine| ; Function 1 
}--—--------------- }$------------~-------------=----—------------------------------------ 1 
| NAUT1 {Generates call to indicated library routine. | 
| | 
| NAUT2 |Moves indicated pseudo-code, deletes current triple, continues text | 
Í | scan. i 
| | Tee | 
[NAUT5 | Makes dictionary entry for indicated library routine. | 
| | 
| NAUT6 | Updates current symbolic register value. | 
| | | 
| NAUT7 {On entry, register BR points at an entry label dictionary entry. On| 
| | 7೦೫೫೫3 exit from the routine, register BR points at the next label | 
| |dictionary entry. Abnormal exit indicates that there are no further| 
| {labels on the current PROCEDURE or ENTRY statement. | 
| | | 
| NAUT8 | Bump EQU* value for branch pseudo-code item. | 
| | | 
| NAUT9 |Bump return switch value to be used for current entry label. | 
| | | 
[NAUT11 |For current entry label, generate appropriate EQU* pseudo-code item. | 
| | | 
| NAUT12 |Converts current label dictionary reference to an absolute address. | 
| | | 
| NAUT16 |Converts dictionary reference of triple second operand to absolute | 
| jaddress, loads address into register BR. | 
| | | 
| NAUT17 |Makes dictionary entry for maximum negative number. | 
| | 
| NAUT18 [Makes indicated dictionary entry. | 
l | | 
| NAUT 21 |Generates pseudo-code to compare source bit string, making library | 
{ [comparison routine dictionary entry, if necessary. | 
| | 
| NA1100 [Tests for SNAP. | 
| | | 
| 3A1140 {Using NAUTD, generates code for ON-units. | 
| | 
| NA3002 |Processes function RETURN statements for one data type. | 
| | | 
1೫13005 jOutputs assignment triple. | 
| | | 
| NA3013 | Processes function RETURN statements for more than one data type. | 
| | | 
1೬5003 |Generates pseudo-code for branch and mask, labels. | 
| | 
| NA8010 |Converts ID to bit-string. | 
l | | 
| 8A8012 [Outputs pseudo-code. Compares bit-string to zero. | 
| | | 
| ON |Processes ON triples. | 
| 
| PROCP/BEGINP |Produce Library call at end of each procedure in source text. | 
| | 
| RETURN |Processes RETURN triples. | 
| | | 
| REVERT | Processes REVERT triples. 
| | 
| SIGNAL |Processes SIGNAL triples. | 
| | 
| STOP |Processes STOP triples. | 
| 
12517013 |String utility in Phase LV to provide a dope vector for a specified | 
| [string. | 
Bd 
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€ Table NG. Phase NG Pseudo-Code Operating System Services 


CUIR NEUEM LAS I ME AERIS ವಾದ್‌ ನಾನ್‌ ರಾ ಲಾನ್‌ d b rU E TET UAR i ನಾನಾ IT RERUM ETAT ENTE ee 


[Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
fee 
| Processes ALLOCATE statements for |ALOCAT |CALIB, FALUT1 | 
[based variables | | | 
}---------—------~-------------------}---------------4 -—-------------------------------+ 
| Processes DELAY statements | DLAY [CALIB, INTEG, SCAN (KT) | 
hed 
[Processes DISPLAY statements | DSPY [CALIB, CHAR, ENDLST, | 
ಗ | {SCAN (KT), STORAD | 
}---------—---------------—------- }--—-------—--- he 1 
|Processes FREE statements for based|FREE | CALIB, FALUT1 | 
| variables | | | 
pone 
| Processes WAIT statements | WAIT | CALIB, INTEG, SCAN(KT) , OPLAST | 
© Table NG1. Phase NG Routine/Subroutine Directory 
ರಾದ ದಾದರ್‌ ನಾ ರಾನಾ ನ್‌್‌ ಷೂ ಜು CE CM IC MM M MEM REM MC M ED C CI eee a ag ದ್ಯ 
| Routine/Subroutine| Function | 
nae ae A— RUD ಆದಾ 6 ಮಾ ew ee ee ee ae ee ————————————————————————— ———————————————————————————————-—-——-4 
(CALIB |Generates part of calling sequence and makes dictionary entry for | 
| |Library routine. | 
| | 
{CHAR (NA) |Converts a given argument to character string. | 
| | | 
|DLAY | Processes DELAY statements. | 
| | | 
| DSPY |Processes DISPLAY statements. | 
l | | 
105೫೫3 |Tests that operand is character variable. | 
| | | 
125218 | Makes dictionary entry for parameter list. | 
| l 
| DSPY10 [Scans for REPLY option. | 
| | | 
| ENDLST [Completes parameter list and makes dictionary entry for it. | 
| | | 
| | FALUT1 | Examines argument of ALLOCATE or FREE statements to see if variable | 
| jis based and forms RDV in workspace to prepare for call to the | 
| | library. | 
] | 
|INTEG (NH) | Converts a given argument to an integer. | 
| | | 
| [NGO |Scans to next statement. | 
| | 
| OPLAST | Builds up parameter list in workspace. | 
| | 
| STORAD [Stores an address in a parameter list. | 
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€ Table NJ. Phase NJ Pseudo-Code RECORD 1/0 


ripa up IM D ME M M MR NND EE AM CCCII ee ee ee ಭಾ ee DE REC D E ಬಾಮ 1 
|Main Processing| l | 

| Statement or Operation Type | Routine | Subroutines Used | 
|| initialize Phase NJ by calling in |STRTNJ | ZLOADW (AA), SCINIT (KT), SC1 (KT) 1 
|block NK and initializing SCAN | | | 
jutility | | 

pre nnn nnn nn nnn nn ಪಪ nnn nnn een ಬಸಪ ಪಪ nnn nnn 1 
|initializes switches and flags to |NUSTAT | TXTEST | 
[indicate start of new statement. | | | 
{Determines RECORD-oriented I/O verb] | | 
land goes to appropriate routine | | | 
bo 
| | Gets next triple of interest, | SCNOPT | 5೦3 (KT), TXTEST, SCANO1, CMPERR i 
[converts to internal code and | | TXTERR, ZABORT (AA) | 
|selects the appropriate routine to | | | | 
| 22೦೦೮85 it | | l | 
fa nn nn nn nf ran nnn nnn nnn enna 
| Processes FILE option of RECORD- |FILOPT | TXTARG, DYNMPL, LAONLY, STDROP, 
joriented 1/0 by placing dictionary | | CMPERR, TXTERR, WRKSPC, MVPSCD, 
|l reference of FILE Declare DCB in | | ZTXTRF (KT), SYMREG, . MV3 (KT) 

|the appropriate slot of the | | 

|parameter list. The parameter list| | 

{is in STATIC if file constant, | | 

| WORKSPACE if file parameter | | 

eS es P 


| (RDV) for the triple operand and |STDROP, LAOSM2, CRDV, .TXTERR, 
{places the address in the second | ZABORT (AA), WRKSPC, MVPSCD, TXTRF, 
|slot of the parameter list unless | SYMREG, ZDRFAB (AA), CALLIB, 

{the operand of the INTO triple is | ZDICRF (AA), REFRDV, SCALAR, 

JA varying string, in which case it | PNTRDR, BSDRDV 

|places the address of the string | 

|dope vector of the operand in the | 

{second slot in the parameter list. | 


| 
| 
| 
| 
| 
| 
| 
|Establishes the record dope vector |INTFRM . | TXTARG, CMPERR, DYNMPL, LAONLY, | 
| 
| 
| 
| 
| 
| 
| 
| 
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9 Table NJ. 


Pm 


| 

| Statement or Operation Type 

| 
{Processes the operand of the 
{LOCATE triple by establishing the 

| ೫೦೪ for the triple operand and 
{placing this address in the second 
[slot of the parameter list. It 
jestablishes the pointer qualifier 
lof the based variable and saves 
|this, either to be used, or to be 
loverwritten by the operand of a SET 
[triple. It establishes a compiler 
|label and puts this in the third 
{slot of the parameter list in order 
[to tell the library where to 
|return, so that code assigning the 
{pointer value returned in the RDV 
Ito the saved pointer operand is 
[avoided. It then initializes the 
|based variables just allocated 

[ 
| Processes KEYTO option of RECORD- 
loriented 1/0 by verifying that its 
{argument is a character string, 
|then placing it in the appropriate 
|parameter list slot, which may be 
jin STATIC or WORKSPACE 

ಕೈತ ಪ ಡಸ ಸಸ ತಪವ ತತ ತಡಸ 
| Processes the KEY or ೫೫೪೯೯೧೦೫ ೧೧೬೬೩೦೧1 
lof RECORD-oriented I/O by 
|converting the argument to a 
{character string if it is not 
[already a character string and 
[placing the result in the 
lappropriate parameter list slot; 
[this is either in STATIC or 

| WORKSPACE 
p--—---——-—---—--—---——------—---------- 
| Processes the IGNORE option of 
[RECORD-oriented I/O by first 
|checking that the argument is a 
[scalar and then converting to a 
[binary fixed integer if it is not 
lalready a binary fixed integer. 
|The address of the argument is 


{list slot in STATIC or WORKSPACE 

| Processes the event option of 

| RECORD-oriented I/O by checking 
jthat the argument is a scalar EVENT| 
|variable and placing its address in| 
|the appropriate parameter list | 
|slot. The parameter list is either| 
jin STATIC or WORKSPACE, depending | 
[upon the storage class of the 1 
| argument. | 


| 
| 
| 
| 
| 
|placed in the appropriate parameter| 
| 
+ 
| 
| 


Las ——— — ee — ee eee C ನಾ ree a AD ಲಾ ses as cae ———— PIE Ue —— -—-— — ಅಪಾರಾ  — ಇಸಾ ಇಡಿಯ: ಬಾವಾ ಆರಾ — ಧಾ «RM d.. OO A — D ED Gee ಲಾ ನನಾ GED QS ಆನಾ ವಾ ಆನಾ GUED GP ಹಾಹಾ OP a ಆವಾ a a a ow ಇದಾ GU ಆನಾ ನಾ ಅನಾ ಈರಾ ಆಮು ae 


Chapter 


Phase NJ Pseudo-Code RECORD I/O (cont'd) 


Main Processing| 
Routine I 


| TXTARG, 


LOCOPT ZDICRF, PNTRDR, 
| LOCRDV, 


CMPERR 


SCALAR, 


rf nn ee 


KYTOPT | TXTARG, SCALAR, DYNMPL, LAONLY, 
|STDROP, NXTMPD, ZSTUT2 (STRUT2 in 
|LV), LAOSM2, LAOSM1, TXTERR, 
|ZDRFAB (AA), SC5 (KT), WRKSPC, 
| MVPSCD, MV3 (KT), SYMREG 


0 On Ge qu GU) a ಲಾ os RUD ಆನಾ ನಾ UD ಆವನ QUE ಆವಾ ಇರಾ qUD ಆನಾ CDD GM QUAD ಆದಾ AD ಆನಾ ee cum 


[TXTARG, SCALAR, DYNMPL, LAONLY, 
| STDROP, NXTMPD, ZSTUT1 (STRUT1 in 
ILV), LAOSM1, LAOSM2, TMPSEL, TXTERR 


KEYOPT 


um c amem cnm ane mee eee iam comes a— — A — — as GEES ವ ee EE eee ee a — ee 


IGNOPT 


CINTEG, DYNMPL, 
MVPSCD, WRKSPC, 
ZDRFAB (AA), 
NXTMPD, MV3A (KT), 
MV3 (KT) 


— anm ans am Gus amen — eames — ಅಮರು — ame € — Y ಆಂವಾ Y HÀ ಬಾಟಾ 


DYNMPL, LAONLY, STDROP, 
| NXTMPD, TMPREF, TXTERR, WRKSPC, 
|MVPSCD, ZTXTRF (KT), SYMREF, 
|MV3 (KT) 


ಸೂತ 


3: Flowcharts, Tables, and Routine Directories 299 


e Table NJ. 


[SET triple. If part of a READ 
|statement, the address of the 
|pointer variable is placed in the 


[second slot of the parameter list. 
|If part of a LOCATE statement, the 


|pointer operand overwrites the 
|pointer taken from the based 
|variable in the LOCATE statement, 
|to be used in the pointer 


lassignment code produced by ENDIO. 


[At end of I/O statement, places 


| REQUEST CODE (i.e.  IODEF) in sta- 


| |tic constant chain, puts STATIC 
|parameter list in STATIC chain. 
[Creates external Library calling 
|sequence for RECORD-oriented I/O 
|statement as follows: 


EPRM 
LA 1, PARM.LIST 


BALR 15,15 
EPRM 


|If there is a WORKSPACE parameter 
|list, it updates the MVC or 
[parameter list from STATIC to 
|WORKSPACE. It checks whether a 
|LOCATE statement is being 
|processed, for which it generates 
|pseudo-code to assign the pointer 
|value from the RDV to the pointer 
|variable and to initialize the 

| REFER variable of a self-defining 
[structure. It generates an 
{allocate triple to indicate 
|possible initialization of TASK 

| ೩೧೮/೦೭ EVENT variables, and a 
|compiler label triple to mark the 


jend of initialization code for the 


|library. It generates any SELL 


[triples accumulated throughout the 


|statement on SELL chain. It 
{cancels the RECORD-oriented I/O 
joption triple codes from the SCAN 
[TRT interest table. It gets the 


{next triple of interest and goes to 


|NUSTAT to process as a new 
[statement. 
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[Processes the pointer operand of a 


L 15, RECORD.IO.LIBRARY.ROUT 


Phase NJ Pseudo-Code RECORD I/O (cont'd) 


[Main Processing| 


| Routine 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+ 
| 
| 
| 
| 


| Subroutines Used 


| TXTARG, SCALAR, NXTMPD, DYNMPL, 
| TMPREF, STDROP, TXTERR 


| ZDICRF (AA), LAONLY, LAOSM1, 


| CALLIB, MVPSCD, ZTXTAB (AA), SELL, 


|SC3 (KT) SYMREG, TMPREF, 
| ZDRFAB, MVTRPL, RCBCMN 


—m a—À oe — ee .—— — A — —— — — 


ಕಾಜು ಬಸ NEUE UPON RC UR C 


eTable NJ. Phase NJ Pseudo-Code RECORD 1/0 (cont'd) 


|At end of program, releases own | PRGEND | RLSCTL 
[modules and turns control over to | | 
|next requested phase. | | 
Lm mamas em am meme a ಆಹಾ eee aean ಆನಾ ಆಹಾ een ee VID ಮಾ ಆನಾ ಆನಾ ಣಾ ಬಾ ಹಾ hme mens ಆಹಾಹಾ as ಅಹಾ ರಾ mad ಎ cee À ಆಹಾ me aw emo ev em ಅಹಾ ae ಆಹಾ ಹಾ À ಆಜಾ ಆಜು ಆಹಾ «m cum aum eran ಆಸರ: en ಅಣ even an 4 


quein re ee eee ee ee ಕಾವ್‌ ನಾಕಾ emm NIS SEM E EE = 
‘ |Main Processing| q 
| Statement or Operation Type | Routine | Subroutines Used | 
}-----—-------—-------------—-----— }--------------- ho ~-----------------—- 
|Indicates presence of NOLOCK | NLKOPT | None 1 
| option. | | | 
MT Tre ವನವನವ ವನವನವ ————Á———— €T 4 
| Delete the SELL triple encountered |SELL routine | 2DRFAB (AA), MV3A (KT) | 
[during scan of RECORD-oriented lat SVSELL or | | 
{I/O statement but puts dictionary |TMPSELL entry | | 
[reference in the SELL chain so that|point | | 
[SELL triple can be regenerated at | | | 
{end of 1/0 statement | | I 
LP A A ALS ಆವನು ಆವಾ ದರಾ SS ಅವಾ ಆದಾ ವನೂ ಆವಾ ಆರಾ ಆಲಾ ಆಮು ಆಸಾಮಿ cm ಲಾ ಇದದ ನದ VEDI. ಆನಾ GRO ಆನಾ ಲಾ ಬಾ ದರಾ AND ಆನಾ CUM ಲಾ ಆನಾ ಇವಾ ಲ SD ಲಾ ದಾ ಆ ಆದಾ -apan ಅಮಾ ಆನಾ CEP ಲಾ a= ಆನಾ ಲಾ em ಇಸಾ EI ——————————————---—-4 
| 
| 
| 


Chapter 3: Flowcharts, Tables, and Routine Directories 301 


Table NJ1. Phase NJ Routine/Subroutine Directory 


ಭವ ಮಾ ಸಾಪಾಣಾತಾಹಷಾಹಹ ಸಾ quem m m Se GU ee ಅವಾ ನಾ ee ಇ ID ನಾ ನನಾ ಅವಾ AID AU ಪಮ ಬನಾನ ನವನ we ಆನಾ ಜಮಾ ಪಣ ಅಮು ಜನಾ cp ಆಜ = —  — — e — ಲಾ 


1 
[ Routine/Subroutine| Function | 
Error ರಿ TM ದ ದು ರಾ { 
| BSDRDV (NK) [Entry point to CRDV routine which marks it as processing a based | 
| |variable in an INTO or FROM option. | 
| | | 
| CALLIB [Creates pseudo-code to call library routine; indicates call in | 
| [dictionary if not previously noted. | 
| | 
| CINTEG |Checks whether argument is a binary fixed integer. | 
| | 
| CMPERR | Indicates compiler error and ABORT, error code in HOLD register. | 
| | 
|CRDV (NK) |Constructs a record dope vector (RDV) entry in WORKSPACE. If the | 
| [dope vector descriptor bit is on, then the routine generates a | 
| [library call to generate the RDV. If the variable has static | 
| |extents and is not a string, the RDV is constructed from information| 
| jin the RDV dictionary entry. If the variable is a string, then the | 
| |RDV is constructed from its string dope vector. | 
| | 
{DEFER [Indicates compiler error in the case of a deferred feature not | 
| {detected by earlier phase. | 
| | | 
| DELETE {Establishes DELETE code as REQUEST CODE. | 
| | 
| DYNMPL (NK) |Establishes a parameter list in workspace if one is not already | 
| |established. Calculates workspace offset to particular slot | 
| |requested. Establishes a symbolic working register. Establishes | 
| |skeleton pseudo-code for LA, ST, and DROP of register into workspace| 
I joffset. | 
| | 
| ENDIC |Handles operations at end of I/O statement. | 
l 
| EVTOPT {Processes EVENT option. (Not implemented in second version.) | 
| | 
| FILOPT |Processes FILE option. I 
| | 
| 268೦27 | Processes IGNORE option. | 
| | | 
| INTFRM {Processes INTO/FROM option. | 
| | 
| KEYOPT |Processes KEY or KEYFROM option. | 
| | | | | 
|LAONLY (NK) |Outputs pseudo-code for LA into symbolic work register of a | 
| |dictionary reference without any offset modifiers. | 
I | f | | 
| LOCRDV (NK) | ೫7೬೫7 point to CRDV routine which marks it as processing a based | 
| |variable of a LOCATE statement. | 
| | | 
| KYTOPT |Processes KEYTO option. | 
| | 
|LAOSM1 (NX) |Establishes pseudo-code for a LA instruction into a symbolic work | 
| |register with the address of WORKSPACE and a literal offset which is| 
| jpointed to the argument register. | 
| . : | 
|LAOSM2 (NK) |Generates LA pseudo-code in which both base and offset are in | 
| |registers. | 
| 
ಜ್‌ (NK) |Puts pseudo-code assembled in pseudo-code area into output text | 
| | block. 
| , 
|MVTRPL (NK) |Invokes SCAN utility to move generated triples into output text | 
| | block. 
| RUKOPT | Indicates presence of NOLOCK option. | 


tw ee ane ee ee cee ee ಆವಾ SEI AD MED. med mee eres Amp: ee ಪಾವಾ ಇರಾ ದನಾ ಆಂವಾ CU ಆನಾ ಅನುನು MAD. ತಾವ ಆನಾ GI. ದನಾ ಬಾವಾ ಅವಾ ಆವಾ ದವಾ GUUD SEND ಆವಾ ದಾವಾ: ಅಂ ಬಾ ಲಾ QUID UD, UID BUD ಬಾ oe ee ಪಾ ಆನಾ ಲಾ ಆವಾ eee ಅದಾ ಆನಾ ಮೋನು ಕ 
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Table NJ1. Phase NJ Routine/Subroutine Directory (cont'd) 


| boundary. 


De cT EET TID er ಹು ಜನ 1 
|Routine/Subroutine| Function | 
he — 
| NUSTAT | Handles operations at start of new statement. | 
l | | 
| NXTMPD | Invokes SCAN utility to get next triple, which is checked to see if | 
| {it is a TMPD; if not, it is an error. | 
| | | 
| PNTRDR {Establishes the seven-byte pointer information slot in a BASED | 
| |variable dictionary entry. | 
| | | 
| PRGEND [Releases control to next phase at end of program. | 
| | | 
| RCBCMN [Commons the dictionary entries of request code blocks. | 
| | | 
| READ |Establishes READ code as REQUEST_CODE; establishes parameter list | 
| | 5೩26. | 
| | | 
|REFRDV (NK) | Establishes the address of the RDV dictionary entry in the ARG | 
| |xregister when given the data variable dictionary address in INDX1. | 
| | | 
| REWRIT |Establishes REWRITE code as REQUEST_CODE. | 
| | | 
15೦ {Confirms that dictionary code byte refers to scalar item; ascertains] 
1 [whether item is a constant. | 
| | 
| SCANO1 jIndicates compiler error in the case of a deferred feature not | 
| [detected during Read-In. | 
| | 
| SCNOPT [Gets next triple of interest, branches to appropriate routine. | 
| | | 
| SCRHOP |Searches options, inserts RECORD-oriented I/O option entries into | 
| [SCAN TRT interest table. | 
| | 
|SELL (NK) |Generates SELL triples for all dictionary references in the SELL | 
| | chain. | 
| | 
[STDROP (NK) [Outputs pseudo-code to ST contents of symbolic work register into | 
| | parameter list slot in workspace set up by DYNMPL, and the drop of | 
| {the symbolic register. i | 
| | 
| STRTNJ {Initializes phase. | 
| | | 
| SYMREG (NK) | Establishes symbolic work register. | 
| | 
[TMPREF (NK) |Generates the appropriate LA pseudo-code to load the address of the | 
| |temporary described by TMPD. | 
| | | 
| TMPSEL (NK) |Adds temporary entry to SELL chain for generation of SELL triple | 
| |upon completion. | 
| | 
| TXTARG |Processes second argument of triple. If dictionary reference, | 
| jestablishes absolute address in INDX1. Returns to LR if zero, i.e.,| 
| |TEMP, LR+4 if dictionary reference. If null, indicates compiler | 
| | error. | 
| | 
| TXTERR |Writes error message. | 
| | 
| TXTEST {converts function code of triple interest TRT table to internal key, | 
| |and invokes PRGEND if end of program is indicated. | 
| | | 
| UNLOCK | Establishes UNLOCK code as REQUEST CODE. (Not implemented in second| 
| | version.) | 
| | l 
| WRITE |Establishes WRITE code as REQUEST CODE. | 
| | 
[WRKSPC (NK) {Establishes the requested workspace area, starting on fullword | 

| 

J 
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e Table NM. Phase NM Pseudo-Code Executable 1/0 
a meme mee ಕ್ರ ನಾನಾ UR EV ee dM E ಕಡು C LEE D CC re 
|Main Processing| 
| Statement or Operation Type | Routine | Subroutines Used 


| | GENTR, MVTRSP, ENDLST, CALIB, 
| |CHAR, INTEG, UTTMPW, SRCERR, 
|| [SCAN (KT), STRUT1 (LV), STRUT2 (LV) | 


E-7--—-—--—-—---—--------—-----——----------4-----------—--------------------2-2---2--2-2-2-2--2-----—- 
|Processes OPEN and CLOSE statements | OPEN ft STORAD, INSTFL, GENPC 1 
| | |GENTR, MVTRSP, ENDLST, CALIB, | 
| | |CHAR, INTEG, UTTMPW, SRCERR, 

|! | {SCAN (KT), STRUT1 (LV), STRUT2 (LV) | 


- 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
l 
i 
i 
| 
i 
| 
[ 
| 
| 
| 
| 
| 
| 
l 
| 

| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
i 
| 
| 
| 

l 

i 

| 

| 
| 

i 

| 

| 

i 

| 

| 

i 

i 

| 

i 

i 

| 

| 

| 

dn —— 


+ + 

| Processes GET and PUT statements |GET | INSERT, STORAD, INSTFL, GENIC, 
| 
| 
| 


Table NM1. Phase NM Routine/Subroutine Directory 





|Routine/Subrouine| ^ Function  . | 
[ize m) [Generates part of calling sequence and makes dictionary entry for | 
| [Library routine. | 
|CHAR (NN) ee a given argument to character string. . i 
| ENDLST (NN) ಜ್‌ parameter list and makes dictionary entry for it. 
{GENPC (NN) (Moves pseudo-code to output. | 
|GENTR (NN) lies generated triples to output. i 
leer GET and PUT statements. | 
|GETOO |initiiiizes switches for GET/PUT. | 
eer TERR option. 
| Eres OE end of I/O statement. 
| INSERT (NN) [Inserts dictionary reference in parameter list. 
|INSTFL (NN) ಸಾ file reference in parameter list. 
| 28726 (NN) oneru a given argument to integer. 
e (NN) lives data and format list triples to output. | 
| NMR1 eres scan for triples of interest. 
mm eee OPEN and CLOSE statements. | 
೦೫೫೫00 ಬ್‌ switches for OPEN/CLOSE. | 
— (NN) TET error dictionary entry. | 
|STORAD (NN) ಸೂ pseudo-code to store symbolic register in parameter list. i 
| UFINEM (NN) obtains temporary workspace. LLL 
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9e Table NT. Phase NT Pseudo-Code Data and Format 


ee 


{Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
bee af nnn an nn an nnn nnn nnn nef 
{Initializes phase, obtains scratch |NT0000 | None | 
| storage | | | 
ವಾ ಮಹ a ca EEE EAEN ge — EE LS 4 

| |Scans text INT0003 |NTOO11, NTOO14, NT0017, NT0021, | 
| | - |NTOO23, NTOO24, SC2 (KT) | 
me — —————————À 
{Collects remote format items and |NTOO11 | None | 
[saves until end of block | | | 
|---------—------------—-------—-- }--------------- hee 1 
[Associates remote format items with|NT0014 | NTUT10 


| 
[data list items | | | 
—— ae A ನಾ ae SEE € — D D a ee ae oe a ee ee eee ee ಆನಾ eee oe a ae oe ee ow ee am ae — ——X —À —Á p ಆವಾ ee ee ee ನರಾ ಆರಾ aw wae UD ಆಧಾ ಆವಾ d — — — M —À An D. A — —À ವಾತ್‌ 
|Makes entries for Library routines 1೫700137 | NTUT20 | 
|xequired for EDIT-directed I/O and | | | 
{copies skeletons for phase NU into | | | 
[scratch storage, then releases | | | 
| | | 


| phase 

SSL ತಾಪಿ E E EE 1 
|Identifies type of data list item |NT0021 | None | 
{land enters the type code in a list | | | 
}--—------—---—-----—------—---------}}----- --- —---f --- = + = 
jAssociates format and data list 1೫70023 | NTUT10 B 
[items and marks INCLUDE matrix | I | 
man nn nnn J 
[identifies type of format list item|NT0024 | None | 
[and enters the type code in a list | | | 
ed 
|Sets bits in INCLUDE matrix to | NTUT10 | None | 
[represent STREAM 1/0 conversion | i | 
{requirements at execution time | | | 
hed 
| Makes dictionary entry for Library |NTUT20 | None | 
| Routine | | | 
ಬದ bo EEE eee ees J 


Table NT1. Phase NT Routine/Subroutine Directory 


py 


|Routine/Subroutine | Function | 
0೫೯೦೦೦ ಐಂ || [Initializes phase, obtains scratch storage. = 1 
(1170003 [Initializes phase address slots. | 
ens ಎಜಿ text. | 
1೫70033. {Collects remote format items. 
1117100318 |Associates remote format items with data list items. | 
1೫70047 EN entries for Library routines for EDIT-directed 1/0. | 
loozi ಜ್‌ types of data list items. | 
| NTO023 Pee format and data list items. i 
| NT0024 ೫ types of format list items. 
1೫71700 ie EDIT-directed 3/೦, therefore no scan pass. i 
eaner TR bits in INCLUDE matrix. | 
[uror [Wakes dictionary entry for Library routine 3 
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e Table NU. Phase NU Pseudo-Code Data and Format Lists 


[rorum ome mena m m ಕಕತ im dcm ತ್‌ te ಕಾಸರ ಕಾನಾನ್‌ ತತಸಬ ಕಾರ್‌ ಕ ಫ್‌ TE mM Ri 1 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
{Generate Library calling sequences |NU0022 J INSERT, UT24,UT11, UT23 i 
|for data items in DATA-directed I/0| | | 
{statements | | | 
~--------~-------------------------}-------- +--+} ------------- -----------------—- 
[Generate Library calling sequences | NU0023 | INSERT, UT11, UT25, UT14,UT23, UTO9 | 
| £೦೫ data items in LIST-directed I/0| | | 
| statements | | | 
ee ae > eee UND ee ee (UN) ete CD ಆನಾ EP eee CHEN ಆದಾ VEND GED AD Oe oD ಆದಾ ಮಲ ee a auum om VOD ewe m —-—— ar —— — —— ಆಹಾ ಮಾಲಾ ವಮ A ಆ ಲಾ — ವರಾ ——— am ಆನಾ — ವು ಆನ ae ಮಾ — CP UND D ಆರಾ ಆಹಾ ಬದು Gm» ಆ cnp ರು ಆವಾ ಇರಾ ಇವ. ಲಾ ಆನಾ we @& UD ಲಾ VD ee 1 
{Generate code for data items in | NU0024 |UT09,14 | 
|EDIT-directed I/O statements | | | 
mannan nn nnn fn nnn anne ~}--------------------------------—- 1 
| [Scan text |NU0002 |SC1 (KT), SC2(KT), SC3(KT) | 
NS nnn ne na 22 
[Generate Library calling sequences |NU0029,NU0030  [UT15,UT18,BCDCNV,UT10 | 
{for format list items {NU0033,NU0037, | | 
I |NU0050 | | 
boo eee eee See ESE ESR EEE REESE J 
Table NU1. Phase NU Routine/Subroutine Directory 
care a aR 
| Routine/Subroutine | Function | 
SS 
{| BCDCNV (NV) [Convert decimal constant to binary. | 
| | | 
| INSERT [Add an entry to an argument list. | 
| | | 
[NUO002 (NV) |Scan text. | 
| | | 
1೫00೦022 |Generate Library calling sequence for DATA-directed data list item. | 
| | 
|NU0023 {Generate Library calling sequence for LIST-directed data list item. | 
| | | 
| ೫೫0೦೦28 (NV) {Generate cards for EDIT-directed data list item. | 
| | 
1೫೮0029 (NV) {Generate Library call for A or B format item. | 
l | | 
[NUO030 (NV) {Generate Library call for E or F format item. | 
| 
| ೫೮0೦೦33 (NV) [Generate code for R format item. | 
| || | 
|NUO037 (NV) [Generate Library call for P format item. | 
| | | 
[NUO050 (NV) [Generate Library call for X, PAGE, SKIP, LINE, C, or COLUMN format | 
| | item. | 
| | | 
| UTO9 {Make dictionary entry for constant in EDIT or LIST list. | 
| | 
[UT10 |Convert a constant entry to one of specified type. | 
| | 
[UT11 [Generate Library calling sequence passing argument list. | 
| | | 
|UT14 [Generate code for intermediate result items in EDIT and LIST data | 
I I lists. | 
| ಕ | 
{UT15 {Make dictionary entry for FED or DED. | 
I I 
{UT18 (NV) |Generate an assignment triple. | 
| | 
|UT23 [Generate Library call code. | 
| 
| 0728 {Construct symbol table dictionary entry. | 
l | 
[UT25 |Set bit in the INCLUDE matrix. | 
bo eb nn oe d 
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e Table OB. Phase OB Pseudo-Code Compiler Functions 


pU mmm m i m m iir ದಾವ ಮಲವ itm ವಜ ——— — —— Á—— MÀ €— ಯಹಾ cu ಆಡು um uo were ಆನಾ ww ewer eee ಆಮು ಆವಾ ಆವಾ ಅದಾ QUY ಆನಾ ಆಮು ಆವಾ ಆಧಾ ಆಹಾ, —Ó € ಆನಾ ಣದ | 


| Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 


+ 
| [Scans text for BUY, BUY ASSIGN | 
|statements and compiler function | 
{and compiler pseudo-variables (see | 
|Appendix D.8), and transfers to | 
lappropriate routine | 
+ 

| 

| 

| 

| 

| 


E — ÁU 


SCAN (KT) 


| | Replaces MIF compiler functions 
| (Appendix D.8) by pseudo-code move 
|character instructions, adjusting 
ithe target field to controlled or 
[temporary type 2 workspace where 
[necessary | 
SS SS 
| [Replaces ADV compiler functions | ADVR 
| (Appendix 2.8) by pseudo-code 
[instructions to load specified 
{element of a dope vector into a 
[register 


+ 
| 
| 
| 
| 
| 
| 83೮೫22೫, ೫೫7೦೫2೦೨, 5೦3 (KT) 
| 
| 
| 
| 
| 


SC3 (KT) 


| [Replaces SDV compiler functions 
| (Appendix D.8) by instructions to 
[load the maximum length from a 
[string dope vector into a register 


ME ಚ್‌ ಚ್‌ 


BUFIZE, STACK, MV3A (KT), FRSTOP, . 
DROPRG, USTACK, 505 (KT) 


|Replaces compiler pseudo-variable | 
|triples and compiler assignment | 
[triples by pseudo-code instructions| 
[Which store the value assigned in | 
|specified part of dope vector | 

4 


—————————————————————— ah ae ——— À— Á— MÀ MÀ € —À M À— —— 


||Remove BUY, BUY ASSIGN, and SELL ST8, ST10, ST7 |SC2, SC3 (both in KT) 


| 
[Statements for scalar | 
|non-adjustable temporary variables | 
|from the text, and allocate storage| 
lin the pseudo-code workspace for | 
|the temporaries | 


mmo auum en eee ee cm adie eee ames ಆಹಹಾ enum cmm 





|Generates code to drop a symbolic |DROPRG | None 
|register, or mark a literal | | 
{register not wanted | | 


We ees Sis A ನನಾ quiam ss ಮ ಪಾ ಭಾಷಾ ಎನ ವಾವ ca um ois ee cee come me ಲವರು a ಉಣ ಮಾ cx um dm mus ವವ ಹಾ ಮಾವ cans ಜಾಲವೂ ಮಮಾ mus ಮ us eo am ee ORE IOS ಇಮಾ ao que — | 


m anum. cu cdm 
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9 Table OB. Phase OB Pseudo-Code Compiler Functions (continued) 
a es aes a ae ಸಾಹಾ aa ace ತ ಗಾನ್‌ ಮಾರಾ ರರ ಮಕಾಂದಾರ a ada ಐ 1 
[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
| 7೮೬೮೫೫7೨೮೮5 whether the target 
[dictionary reference of MTF 
|function, or ADV or SDV 
|pseudo-variable is controlled or a 
|terporary type 2. If it is, the 
|dictionary reference is replaced by 
|the dictionary reference of the 
[controlled or temporary type 2 
|workspace, with the appropriate 
loffset, if the target is a 
|structure base element 
|Stack and unstack the information 
|specifying the target field of 
|compiler pseudo-variable assignment 


STACK, USTACK 


SETDVF 


-— — — — — —À — —— ಆಬಾ — ಹಾ — — — 


|Calculates the offset of the dope 
| vector of a structure base element 
{from the start of the structure 

| dope vector 


| 
| 
| 
| 
hd 
| 
| 


— — — — ತೆ. ee ಜಾ ee — e —— a a ಆಸಾ a — — ee ಎ 


| {Place triples from the source text |BUFIZE |Sc5 (KT) 
Jin an internal buffer. | | 


ಓನಿ a ಅವಾ ಕಾಣು en ಷಾ ಕಾಕಾ Le ಅಸಹ or ಕಸ ಲಾ ಅಲಾ ಎದ ಕಾದ ಹೂವ ಸಕ ಕಾರಾ ಜಾ ಕಾಣಾ ಕಾಕಾ ರಾ ವಾರಾ ಅರಾ ಅರಾ ವರಾಹ 4 
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Table OB1. Phase OB Routine/Subroutine Directory 


[the text, and allocate space for the temporary variables in the 


poer TC qoom ಸವಾ mI AMICO E erem mere ಜಪ ನನ 
| Routine/Subroutine| Function | 
CHUA OS Ge ಇಪ ಖಾ SE ES Oe GE a eee ಪಾ EE ee ಣಾ — —— SEP ee da ee ee ee ee ee ee ee ee es ಆನಾ ಬಾಜಾ umm» sc ee oe cum» ee en ee a ee ಪಾನ Au ----~{ 
| ADVR |Replaces ADV compiler functions by pseudo-code instructions to load | 
| |the specified element of a dope vector into a register. | 
| | | 
jAT7 [Generates pseudo-code. | 
| | | 
|AT8 |Replaces operand by workspace reference. | 
l | 
| BUFI ZE {Places triples from the source text in an internal buffer. | 
| | 
|BY5 [Tests length of string. | 
| | 
| BY19 | Processes string temporary (dope vector only). | 
| | 
| DROPRG |Generates code to drop a symbolic register or mark a literal | 
| |xregister not wanted. | 
| | | 
| FRSTOP |Replaces the target field of MTF function or compiler | 
| |pseudo-variable by controlled workspace where necessary. | 
| | 
{MTFR | Replaces MTF compiler functions by pseudo-code move character | 
| | instructions. | 
l | 
| SDVR | Replaces SDV compiler functions by pseudo-code instructions to load | 
| {the maximum string length into an object register. | 
| | 
| 5೫70೪೯ {Calculates the offset from the start of a structure dope vector to | 
| |the dope vector of a particular base element. | 
| | 
| STACK/USTACK [Stack and unstack information specifying target field of compiler | 
| |pseudo-variable assignment. I 
| | | 
| ST1 [Scans text for BUY and BUY ASSIGN statements, compiler functions, | 
| jand compiler pseudo-variables. | 
| | 
1578, 586 {Replaces compiler pseudo-variables and compiler assignment triples | 
| |by pseudo code instructions to set the assigned expression, | 
| | converted if necessary in the specified part of a dope vector. | 
| | 
|ST7,ST8,ST10 |Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars from | 
| | 
| | 
L 


|pseudo-code workspace. 
L 


| 
| 
| 
| 
| 
' 
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Table OD. Phase OD Pseudo-Code Assianment 
recu MMC M CDI M CM a D DM AIL ಸಾರ ಕರಾ ಕ್‌ MMC ಕಾಕ್‌ ಕಶಕ ಕಾ ಹಕ a M E ನನ 


| |Nain Processing| 


1 

| 

| Statement or Operation Type | Routine | Subroutines Used | 
—————— —— € ———Ó——— nnn 
[Get block of scratch core | SCRCOR | None | 
TEE a a ag EEE EER SE EEE a at ಸಾನ ಬ ಪಾಷ 4 
{Move routines, constants and tables|MOVTAB . | None | 
[to block | | | 
ee PES NR MENS ee a ee a TONY UR MER THE T EDU MC ee ee NRE J 


Table OD1. Phase OD Routine/Subroutine Directory 
porre qo eem e ಭಾಭಾ CM Eee ಇದದರ ದ ಮಾದಾ 1 
| | 


Routine/Subroutine Function | 
--------—------- }----~---~~----—----------------------------------------------------4 

| SCRCOR JObtains block of scratch core. | | 
| 

| MOVTAB |Moves routines, tables and constants into scratch core. | 
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Table OF. 


i 
|ASFDOO (OF) 


Generates 


Phase OE Pseudo-Code Assignment 


ER ಶ್‌ಾವ ರ aap racc Wa me niu cue me ecce i ED oe cet E ET aN 


Iain Processing| | 


code for fixed decimal assiqnments. 


| Statement or Operation Type | Routine | Subroutines Used | 
p--————-——--——----—---—--------------------- he 1 
{Generates pseudo-code for |ASS00 | 15೦೦೦೦, ASCDOO, ASDROP | 
lassianment triples | | | 
——— — nnn nn nnn nnn nnn nn nn nnn nn nn G—— nnn na 
{Generates Library calling sequences|ALLOC, FREE, | CALIB | 
| for ALLOCATE, FREE, BUY, and SELL |BUY, or SELL | | 
[triples l | | 
ee ULM MEER EE ಆಹಾಖ ee acque a YE EE UH MANO ae Cer TUR EDU ತ — ——— as ಹವ ally —— — wes cc ees ee C —— ee oe A ——  — — X — M — uA oe AA Se ee we AED oe ew ce ww we we oe e J 
Table OE1. Phase OE Routine/Subroutine Directory 
Go ಹಜಾ್‌ಹಾನಾ ರಾವ್‌ ಹ್‌ ಫ್‌ aa ESL II MM a ಪಾಲಾದ ಅಜಾ ಸತತ್‌ 1 
| Routine/Subroutine| Function | 
ee) 
{ALLOC (OF) | Processes ALLOCATE triples. | 
| | 
1೬5000 {Inserts target types for constants. 
| | 
{ASCDOO {Controls assignment of real and complex data. 
| | 
| ASDACP |Drops symbolic registers. 
| | 
| ASF500 |Generates code for fixed binary assignments. 
| | 
| 
| 


Peery 

| ASLOO 
Mod 
೬೪ 
ಚಹ 
Pore 
eto (OF) 
T (OF) 
ee (OF) 
eases 
Lei (OF) 
| GSRCHY 
GER 


| 
|GENSS0 


SPASS (OF) 


{Generates 


[Generates 


|Generates 


|Generates 
| Processes 
| Tests for 


| Generates 


| Processes 


| Generates 


code for floating-point assignments. 

code for label assignments. 

code for pointer/offset assignment. 

library calling sequence for area assiqnment. 
assignment triples. 


Special assignment triple. 


BUY triples. 


Library calling sequences. 


{Enables for SIZE prefix option. 


| Processes 


| 
|Generates 


| Generates 


| Generates 


FREE triples. 


convert macro instruction. 


RX instruction. 


SS instruction. 


jObtains operand description. 


| Removes index from operand. 


|Obtains next symbolic register. 


| Processes 


| Processes 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
code for string and numeric field’ assignments. | 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
SELL triples. | 
| 


special assignment triples. 
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e Table OG. Phase OG Library Calling Sequences 


ಭಾನ ರ್‌ ಕಾನಾ NTC RN ಗಾ ರಾವನ ಮಾಜಾ ದಾತಾರ ವಾರ ಧಾನ್‌ x mec 1 

jMain Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ಹ ಹು A 
| Scans triples and takes action on |TRSCAN | EOBIN, TSCSNO, TSCCLB, TSCPRC, ೯117001, | 
{their values | | TSCEOP, TSCEP2, JSCJMP,MOVITM,MOVOUT | 
p--——-—------------------——-----—-- 4---—----------- }----~---~-------------------------- 1 
{Scans pseudo-code deleting IGNORE  |PCSCAN | CNVFND, MOVITM, MOVOUT | 
jitems and detecting CONVERT items | | | 
pommel 
| Examines fields of CONVERT, and | IEMOH |MJG201, IEMOI ,CODCAL | 
|determines whether the conversion | | | 
jis to be done in-line | | | 
~---------------------------------- de ------------- }--~--------------------------------4 
{Generates Library calling sequence |MJG201 |MIG203,MJG204,MJG298 | 
RNS ಸಾಸ ಬಾಸ Tepic pu ಎವ OPUS RET ROT RON FCT SS 
[Generates in-line code for selected] 181402 | BITODI, FDTOFB, FIBFLT ,DECFLT, PICHAR | 
| conversions | | | 
N G ——- }~--~~------------------------------4 
{Generates in-line code for pictures] IEMOL | SILCON, MOVOUT | 
{containing not more than four of | | | 
|the insertion characters (/ , . | | | 
|blank), if the target field is | | | 
|fixed decimal, fixed binary, float | | | 
|decimal or float binary | | | 
ಕಾಮಾ LENSES SO a ಹ ಹುಸ NES ie ee ad 
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€ Table ೦೦%. 


[the insertion characters (/ , . 
[fixed decimal, fixed binary, float decimal or float binary 


| conversion. 


Phase OG Routine/Subroutine Directory 


blank), if the target field is 


|Routine/Subroutine| Function Z i 
feos — 5 (recone curd (ಯಾ | 
ಸಜ ಚ್‌ SN, 5೫2, and SL triples. | 
[50068 ಮಃ CL triples. | 
tm ಚು PROC, PROC*, BEGIN, and BEGIN? triples, and sets up cuu 
| | for work space requirements. | 
siot ೪113 the workspace requirements for FORMAT and FORMAT LIST. | 
| sess |Processes EOP triple. | 
ಚಾಣ ಹಾಟ EOP2 triples and terminates phase. | 
Jose |When a JUMP triple is found the routine sets up a counting MENT 
| |and enters PCSCAN. | 
ಜಟ! {Moves from input an item which spans blocks. | 
oe ieee an item to the output block. 
ಟೂ Pe a CONVERT is found passes control to IEMOH and outputs | 
| |pseudo-code generated on return. | 
€ (OH) ಸಜ pseudo-code to call the Library conversion package. 
ಹಾ (OH) ee a DED generates a code byte used by the in-line conversions. | 
ಸ (OH) ಟ್‌ pseudo-code to point registers at data. | 
ಸ್ರ (OB) eae: pseudo-code to call Library conversion module. | 
ಜ್‌ (OH) iis bits in include card matrix. | 
T (OI) ಹಾ in-line code for binary to decimal conversion. 
ರ (01) ee in-line code for decimal to binary conversion. | 
RE (OL) {Generates in-line code for decimal to float conversion. | 
ಚೂ (03) | ೮೮7೧೮೫೩1೬೮೮ in-line code for fixed binary to float conversion. | 
ere (OL) {Generates in-line code for picture to character string conversion. | 
ಆಟ (OL) |Generates in-line code for pictures containing not more than four of | 

| 

| 

| 
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Table OM. Phase OM In-line Data Conversions 


Cee ee ee ee DOTS re ee Np C ee a C EE E ತಕರ 1 

[Main Processing] | 
| Statement or Operation Type | Routine | Subroutines Used | 
}------------~--~-------------------}---------------}-----------------------------------4 
[Scans text for CNVC macros | TEXTSC | None | 
}---------—-------------------------}---~-----------}-----------------------------------4 
|Passes control to code generation |CNVCDE | PACK, UNPACK, EDIT, EDMK | 
| routines | | | 
Ge eee ea ee ee ee ಕಾವ ವಷ vr ಭಾಷಾ ಹಾವ ವಜಾ ವಾ ಅವಸರ ಪನ ಹಾಸ J 


Table OM1. Phase OM Routine/Subroutine Directory 


enee a ಸಾಲು ನಾನಾನಾ ರಾರಾ ರಾನಾ ಲರ ಹು ನಾರಾ ಸಭಾ E E EE memo qam TET SUPE EE 1 
| Routine/Subroutine | Function | 
a a a a eae es ee aie aa ee el a ee eu 4 
| CNVCDE | Passes control to the in-line code generation routines. | 

| 
| EDIT ; |Generates conversion code, based on the ED instruction, for FIXED | 
| {DEC to PICTURE conversion which includes punctuation and/or zero | 
| | suppression. | 
| s | 
| EDMK |Generates conversion code, based on the EDMK instruction, for FIXED | 
| |DEC to PICTURE conversion which includes a drifting sign. | 
| | 
| PACK (ON) [Generates conversion code, based on the PACK instruction, for | 
| | PICTURE to FIXED DEC conversion when the picture contains only 9's | 
| [and V, and has only external sign or edit characters. | 
| | | 
| PTNGEN |Generates the editing constant or mask used by the ED or EDMK | 
| | 57೧-3376 instructions. | 
| | | 
| TEXTSC [Scans text for CNVC macros. | 
| | 
| UNPACK (ON) |Generates conversion code, based on the UNPK instruction, for FIXED | 
| |DEC to PICTURE containing only 9's and V, and with only external | 
| [sign or edit characters. | 
ಬಸೂ ಎಸಿಪಿ ವವನು [ಯು ಸುಸು Oa CEN MC MU 
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Table OP. Phase OP Further In-line Conversions 

ar a IP ee gee ee ee Se ne ee ee ee eng 
[Main Processing] | 

| Statement or Operation Type | Routine | Subroutines Used | 


1 + + 
{initialize and perform test scan to|TEXTSC | CNVCDE | 
|search for convert macros | | | 


—————— ——————— M === === == -4 


{Examine convert macro and select | CNVCDE | BNTOBT, BTTOBN, FLTOBN | 
{routine to generate in-line code | | | 
| ಮಾ ಸಾ ಎವ ಮತಾ ಮಮಾ ರನ ವವ ಮಾ ನವಾನಿ ee ee — — oe ಅನಾ a ವಾಡಾ: en en eee — — — ವಾವ —À ಘರ c À— — | — — A — A e n RA ಆನಾ ಇದಾ UAR UND ಲಾ ಲಾ UA ಮನಾ ಘಾ AN ಆನಾ ae ee ಇದಾ ee ee m 3 


Table OP1. Phase OP Routine/Subroutine Directory 
Se ee ನಾಲಾ er ee a rU e eee ee ETC 1 
| Routine/Subroutine | Function | 


{BNTOBT {Generate in-line code fcr conversion from fixed binary to bit string| 
| | 

| BTTOBN [Generate in-line code for conversion from bit string to fixed binary| 
| | 

| FLTOBN [Generate in-line code for conversion from float binary to fixed | 
| | binary | 
ತ 


ಕ್ಷ... et ee ee ee ನಾತ ಇಸಾ ಜಟ as en aly om mum amm wee ಅಜಾ ನಾ SEED ಪಾಸ ಖಾನ ಆವಾ ರಾನಾ CU ee es en ನಾ GUI ee GS ee ಪಾಪ QUID. QUID Oe ಆವಾ am ee a ee oe ee ee oe MD ED ಇದಾ UND. re ee ee MD oe cum 
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Table OS. Phase OS Constant Conversions 


(eee eS rr eS ಪಾ ಣಹ ಬ ಸಾಕಾ ಚಾತ್ರ ಸದ can ಕಕ ರಾದ ರಾಗಾ Se ಕ ಕಾರಾ mI ವ 
|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
ERE TERS ee MS SRA SEN SRE: 
{Scans constants chain for double | SCAN1 ಜಾ 5೮೫೦1೦, 5727757 l 
[word constants | | | 
-——————————————————————————2—--4------————-----b--—---------—--------———————————-—-—-- 
[Scans constants chain for single | SCAN2 |POOLSC, SCNO10, STPTST 1 
[word constants | | | 
|--------------------------------—}--------—------ }----------------------------------- 1 
{Scans constants chain for unaligned|SCAN3 |CONVRT, IADENT, SCNO10, STPTST | 
| constants | | | 
~---------------------------------- }-~-------------}--------~--------------------------4 
{Scans through constants chain for |SCAN4 |CONVRT, STPTST | 
lali constants used to initialize | | i 
| STATIC storage | | | 
-~------~---------------—-—--------- $------------~--}--------------------------------—-4 
|Sets up parameter and branches to |CONVRT | ARARD, ARBTD, ARCHD, CHARD, ERROUT,| 
|the correct conversion routine | | IACONV, IASTRN, IHEVFA, IHEVFB, | 
| | |IHEVFC, IHEVFD, IHEVFE, IHEVKF, | 
| | | IHEVKG, IHEVPA, IHEVPB, 788೪೧೦, | 
| [ | IHEVPD, IHEVPE, IHEVPF, 7887೧0, | 
| | | IHEVPH, UPAA, UPAB, UPBA, UPBB, | 
| | | VSAA, VSCA, VSDA, VSEA, ZEROPT | 


Table OS1. Phase OS Routine/Subroutine Directory 


[Routine/Subroutine | Function | 
4 
| ARARD {Handles the linking of routines required for any arithmetic to 
| jarithmetic conversions (corresponding Library module IHEDMA). 


| 

| 

ARBTD |As above for arithmetic to bit conversion (corresponding Library | 
| {routines IHEDNB). | 
l | 
| ARCHD |Arithmetic to character (IHEDNC). | 
| | | 
| CHARD |Character to arithmetic (IHEDCN). | 
| | | 
| CONVRT {Sets up parameters and branches to correct conversion routine. | 
| | 
| ERROUT |Handies the output of error messages for the conversion routines. | 
i | | 
| IACONV {Handles conversion to arithmetic type. | 
| | 
| LADENT [Makes dictionary entry in the constant pool, generating a new | 
| |constant pool block if necessary. | 
| | | | 
| IASTRN [Handles conversion to string type. | 
| | 
|IHEVFA (OT) [Converts radix long floating-point binary to packed decimal | 
| | intermediate. | 
| | "T | 
|IBEVFB (OT) [Converts long precision floating-point number to fixed binary. | 
| | | | 
|IHEVFC (OT) |Converts long floating-point number to floating-point variable. | 
l | | 
|IHEVFD (OT) |Converts fixed point binary integer with scale factor to long | 
| {precision floating-point intermediate. | 
| | ಚ್‌ | 
|IHEVFE (OT) jConverts floating-point number of specified precision | 
| | floating-point. | 
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Table OS1. Phase OS Routine/Subroutine Directory (cont'd) 


pum —— AY cma amem emm meo ಸಡಾ 
| Routine/Subroutine 


T 


| : Function 


—Ó —Ó—À Ó— ee — — — ——— —À — Ó—— — — — —Ó—— —À —À — —ÀÀ—À ——— — — — — ಆದಾ —À — —— ಆನಾ — — —— — — — — — — -q 


————————————-—-—--—------—---------2--------------—----------2--22-2------- -——-—-----------4 


|IHEVKF (OU) 
IHEVKG (OU) 


HEVPA (OT) 
HEVPB (OU) 


I 
I 
IHEVPC (OU) 
I 


IHEVPH (OT) 


LDCONP {Points to head of constant chain. 
I 

POOLSC |Given a converted constant in scratch storage, scans the existing 
|pool for an identical entry. If such an entry is found, the pool 
joffset and dictionary reference of the entry is moved into the 
{dictionary entry for the constant. 
| 

SCAN1 [Scans constants chain for double word constants. 

SCAN2 [Scans constants chain for single word constants. 
| 

SCAN3 [Scans constants chain for unaligned constants. 

SCAN | Scans constants chain for constants used to initialize static 
[storage. 

SCNO10 |Controls the calling of the conversion routine CONVRT and pool scan 
{routine POOLSC and, if required, IADENT. Also handles the case of a 
[constant given in internal form. 

STPTST {Checks for the end of the constant chain. 

UPAA (UPAB) (OT) |Produces zero real (imaginary) part for CAD (corresponding Library 
[module IHEUPA). 

UPBA (UPBB) (OT) |Produces zero real (imaginary) part for numeric field (IHEUPB). 
| 

VSAA (OT) {Convert from bit string to bit string (IHEVSA). 

VSCA (OT) [Convert from character string to character string (IHEVSC). 

| 

VSDA (OT) [Convert from character string to bit string (IHEVSD). 

VSEA (OT) |Convert from character string to pictured character string (IHEVSE). 
| 

288೦27 |Produces a zero real or imaginary part for a constant given in 
|internal form. 

—— !— — ENS — À—— —ÓÁ————— ——À— P — "Dar n 


|Converts packed decimal intermediate to decimal fixed or 
|floating-point numeric field with specified precision. 


|Converts packed decimal intermediate to a sterling numeric field, 
{with specified precision. 


|Converts packed decimal intermediate to long float. 


[Converts packed decimal intermediate to an F format item. 
[Converts packed decimal intermediate to an E format item. 


|Converts packed decimal intermediate to a decimal integer with 
[specified precision and scale factor. 

| 

| Converts an F or E format item to packed decimal intermediate. 


| Converts a decimal integer with specified precision and scale factor 


Ito packed decimal intermediate. 


|Converts binary fixed or floating-point constant to long precision 


| floating-point. 


[Converts bit string constant with up to 31 significant bits, to 
{floating-point with long precision. 
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Storage Allocation Logical Phase Flowchart 
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Chart PD. Phase PD Overall Logic Diagram 
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Chart PL. Phase PL Overall Logic Diagram 
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Chart 0%. Phase QX Overall Logic Diagram 
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Table PA. Phase PA DSAs in STATIC Storage 


ರಸಕ ಕಕ se pet ea ee ee ಕ ^ NOR TURCO ee ಕರಾ te ee ee ENS E 1 
‘| . |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
| 5೦೮೫೫೨5 Entry Type 1 chain for blocks|PADSA | DSASIZ, DVSIZE | 
leligible for STATIC DSAs | | | 
ವಾಘಾ a A R ee ಮದದ eee dd 
{Makes a dictionary entry for each |DICENT | None | 
{STATIC DSA | | | 
me 
|Sorts STATIC chain (called from PD) | 5೮೮೦೧7 | None | 
— Á—— BEES ESS ES SEE a es ee 1 
{Scans STATIC chain for INTERNAL | ARRSCN | None | 
jarrays; calculates number of | | | 
|elements for those arrays needing | | | 
|linitialization.  Allocates storage | | | 
{for arrays and, if necessary, for | | | 
|secondary dope vectors | | | 
ಮಾನವಾ oti ee EEE ಮಸ ee ಸವಾ eee ee 4 


Table PA1. Phase PA Routine/Subroutine Directory 


[Routine/Subroutine} Function 1 
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| land secondary dope vectors (called from PH). | 
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|DSASIZ ಚ್‌ size of DSA excluding Register Allocator Workspace. | 
| DVSIZE ee AUTOMATIC chain for variables requiring dope vectors, and 
| [calculates size of dope vectors. | 
| PADSA EER eligibility of a block for a STATIC DSA. | 
RUM (fares STATIC chain (called from PD). | 
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Table PD. Phase PD Storage Allocation Static 1 


(7770. ————————ÉÀ o — ಖಾರಾ ಲಾ "—— ಆಧಾ, ——— A ಮಾದಾ — SS -—À ಇರಾ, Cu ರಾ ಎಂದಾ: ಎಂಡ ewe Ow — a —áMÓ— — — SSS ಫಾ ಚಾ ರ ee ewe ew oe — 
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ಧಾ eg KM ಕಷ ಪಡು ಸಷ ಭವ ML ಭಷ ರಚಸ ಚಿಗರಿ ಕಾ ಕನನ ದಸಾ ec ತ ಸಾವೂ ಸಾಜಾ ಕಾಚ ಕಾಕರ ನಾ 1 
| 5೦೫೭೬೨ STATIC chain {SCSORT (in PA) |None | 
aa nn nn nn nnn nn nn nnn nnn nn nnn C —— nn nnn nn nnn nnn nnn nnn 
|Allocates storage for simple, | STATIC | SDSA1 | 
[non-structured, non-external items | | | 
hed 
|Allocates dope vectors for all | DVALOC | None | 
[non-external items | | | 
pram ann nnn nnn nnn npn nnn nnn nn fn nnn nnn nnn nnn nnn nnd 
|Allocates 4-byte addressing slots; |TVALOC | STRCDV | 
[calculates control section size for| | | 
[all external items | | | 
be ——— to —— -----—-----—--------------—----- + 


|Allocates storage for constants. | CONALC | None | 


ln nL ee ಕತಾ ದಾ ಹಾ, -——————————————————————————————————-d 


Table PD1. Phase PD Routine/Subroutine Directory 


[-—— UMEN RI USURIS ag wee qui MUNI RENDIR ST ASR A. DERI NA LS dem he ಬ ಫೋ Bee E Se e TT ಸಾ 


| Routine/Subroutine| Function | 
ou ಕಾ ಕಾಬಾ ಚಾ aes ಸ್‌ ಟಾ 
| DVALOC {Allocates dope vectors for all non-external items. ! 
ER [obtains next text block. | 
[ep | scans text file and reverses second file pointers. | 
| SDSA1 ieee a 4-byte address slot for each STATIC DSA. | 
ಜ್‌ ಸ್ತ STATIC chain. 
{STATIC {Allocates storage for simple, non-structured, non-external items. 
| STRCDV ^ {Allocates relative offsets of structure member dope vectors. | 
| TVALOC | 2313೦081೮5 4-byte addressing slots; calculates control section size 


i |for all external items. 
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Table PH. Phase PH Storage Allocation Static 2 
(en eee ee S: JM ಅವರಾ ಆರಾ ere ED —— 2 Se Se, oa 

| |Main Processing| 
| Statement or Operation Type | Routine | 


Subroutines Used 


|Scans AUTOMATIC chain; allocates | PBSCAN |AUTOU, SKDV1, SKENT3, STRSCN, 
|dope vector | | TEMPDV 
hh — 
[Scans CONTROLLED chain | CONSCN |AUTOU, SKDV1, STRSCN 
{Allocates storage for skeleton | SKARGL | None 
largument lists appearing in STATIC | | 
| chain | | 
+ 
{Scans STATIC chain for INTERNAL |ARRSCN (in PA) |None 


| ೩2೫೩೫೨5; calculates number of 
[elements for those arrays needing 
linitializing.  Allocates storage 


| 

| 

| 

——ÁÁÁ—————Ó—— Rr ವವ ಪಪಾತ ——————MÁR ಹ A: ತ್ತಿ 
| 

| 

| 

| 

| 

| 


| 
|for arrays and, if necessary, for | 
[secondary dope vectors | 


um Am “ಮಾಹಾ ER ಆನಾ ಬಜಾರ ಜಾಮ ಪರರು dpa, EES VEU ES cep crum ಆವಾರಾ ರೀ: ER, ED EES ಅಥಾವ ud, A E, ಮಂಜಾ OP Ee Mm aum) ums CLES chia CE Nu ನರಾ ರಹಾ: ಆವಾಜು SEED aps ms. ತಿಸಿ ತಂದವ ಆರ UE ee Oe os ee ee ee ಆನು a ee erum 


| 5೦೫೧೨ STATIC chain for INTERNAL | 
jstructures. Calculates number of | 
[elements in structured arrays | 
[needing initializing.  Calculates | 
|size of storage for all structures | 
[and bumps location counter. | | 


en ee ee eee on ಲಾವಾ ನಾ ಲಾಯ ae oe ee ore een ನ ನಾ ee ee ಎಣ ವಮ mamando — ಕಾವಾ ಅಡಾ, —— eee —ÀÁÀ ee we ಲಾ ಜರಾ 
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Table PH1. 


[Routine/Subroutine| Function | 


Phase PH Routine/Subroutine Directory 


| aah ret daar aa San ಅವ ಣಾ ami ಅಜಾ im ean ಅಜಾ EE (ನಾಮ SE EU ಎವಾ: SED UNDO GREED ED OE Ee eee ಆವಾ ಆದಾ ee Om ee qu eee: eam am on ees ear 


|ARRSCN (in PA) 


| 
| AUTEND 


| 
| AUTOS 
| 


ಜ್‌ 
losen 
ensis 
ore 
| Past 


| 
| SKARGL 
| 


| 
| SKARG1 


| 

| SKDV1 
SKENT3 
STRALO 


STRSCN 


qum um nee cm ee ee ಪಚ ವಾ ee ee eee ಅಚ ee ee 
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|Scans STATIC chain for INTERNAL arrays; allocates storage for arrays 
[and secondary dope vectors. 


| 
[Tests for end of AUTOMATIC chain. 


{Calculates size of dope vectors for dynamic temporaries and 
[CONTROLLED variables. 


| 
| 
| 
| 
| 
| 
| | 
[Scans CONTROLLED chain. | 
| | 
|Tests for end of STATIC chain. | 
| 
|Stores STATIC location counter and releases control. | 
| 
| Scans AUTOMATIC chain; allocates dope vectors. | 
| | 
[Gets next item in chain. | 
| 
|Allocates storage for skeleton argument lists appearing in STATIC | 
{chain. | 
| 
jAllocates storage required. | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
l 
| 
J 


[Creates skeleton dope vector dictionary entries for non-structured 
|variables in AUTOMATIC and CONTROLLED storage. 


[Constructs skeleton dope vector dictionary entries for function 


| values. 


[Calculates number of elements in structure arrays to be initialized; 
[calculates size of storage for all structures. 

| 
[Creates skeleton dope vector dictionary entries for Structures in 
{ AUTOMATIC and CONTROLLED chains. 


[Creates skeleton dope vector dictionary entry for temporary 
workspaces 


Tl ಮ —————————————Ó— M €——— ವಾ 


Table PL. Phase PL Storage Allocation Symbol Table and DEDs 

PER ORD UNUS RY EE PST CN ES TS TY ATE ಇತ್ರ MS ವಾನ ce ಬಾವಾ ಲಾರಾ ಗಾಲಾ ED ನಾ daa 
|Main Processing| 

| Statement or Operation Type | Routine | Subroutines Used 


1 
| 
| 

PP SS QD AQUI AUI ಆವಾ ಲಾ ಆವಾ ನಾ ಅನಾ ದನಾ ಉಮಾ A PT ದಾ ಣಾ SPI QUUD ಸವಾ GE) ———————— —— e — t tn ದಾ mmi aD up. im an dup ವು Sum emp um m um E uu ಇವಾ, uum ಆನಾ Am ae ನನಾ dE D ಹವಾ 4 
| 
| 

4 





{Allocates STATIC storage for all | IEMPL | BCSCAN, CCSCAN, CNSCAN, SCSCAN 
|symbol tables and DEDS 

a ನಾ ಮಾ A ಆಧಾ ಸ Se Te Ae SS QUID ಆಹಾ ಪಾಯ A GNI) ವಾ PS ಆವಾ Mp. ಇಸ್ಟ [ಐ ಲಾ ಇದಾ PS ಆಮು ಆವಾ ನಾ ಆದಾ ಲವು ರಾವಾ ಬಾ ಆರಂ + amo anap un ar ee ಆಧಾ ee eS ee QUID UD ಆವಾ GUD ಆವಾ UMP ಆವಾ ಇರಾ ದನಾ QUA ದವಾ (UD ae eee ಆಹಾ 
[Scans STATIC chain for symbol and |SCSCAN |DEDAL1, STRSCN, SYMTAB 
[DED variables | 





{Scans CONTROLLED chain for symbol |CCSCAN |DEDAL1, STRSCN, SYMTAB 
|and DED variables | | 


| 
| 
SE EES ——— ———————— — | 
| 
| 





——-----------—-----—---}---------------} -----—---—--------------------—-4 
|Scans PROCEDURE block chain of | BCSCAN |ACSCAN, DEDAL1 | 
|ENTRY type 1 entries | | | 
[Scans AUTOMATIC chain for symbol  |ACSCAN |DEDAL1, STRSCN, SYMTAB | 
land DED variables | | | 
}--—------—-—_----—--- ——--—-------}------------- ----------——~-------------------—- 1 
[Scans chain of members of | STRSCN | DEDAL1, SYMTAB | 
{particular structure for symbol and| | | 
Hie variables | | | 


i -4 
faliscates storage for symbol tables|SYMTAB | DEDAL2 | 


———————————— ——-—--—-—---------L----—————————————————————-—--------4 


|Allocates storage for DEDS [DEDAL (two | None | 
| [entry points: | | 
| |DEDAL1, DEDAL2) | | 


Table PL1. Phase PL Routine/Subroutine Directory 


[Routine/subroutinel Function | 
ರಾ ಕರಾ ಅರ ಚುರ Gnd DED variables SCS 
೫೫33 {Scans procedure block chain of ENTRY type 1 entries. | 
cone ae controlled chain for symbol and DED variables. | 
"ದಾತ ಈ constants chain for DED variables. 
IDEDATA (PM) ಹ್‌ storage for DEDs. l 
ಎ ಟ್‌ STATIC storage for symbol tables and 2೫08. | 
PN T ಜ್‌ STATIC chain for symbol and DED variables. | 
[57858೦೫ ಹಾಸ of members of particular structure for symbol and DED 
| variables. | 
| sera (PM) [allocates storage for symbol tables. | 


| —————— a a en —————— mA ew ಹಾಹಾ wens ee ee qu 
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Table PP. Phase PP Storage Allocation Sort of AUTOMATIC Chain 


p^—v4———— ums CARRE CU GIRO UNES AIO CED SEED cim enm» (ಹಡ ಯಣಣು GED DO CUP CN ON a MET QUO ಇತನಾ ms ಆನಾ ಹಾ ಪಾವ NU ಲಾ ums arts SE SUR GEN qum gS chum CU ee a dre 


ಸಾಹಾ ಸವಸ HEN EN ENSE ee 1 
| (Main Processing| | 
d Statement or Operation Type | Routine | Subroutines Used | 
— nnn nnn nn nn fn nnn nnn —— nnn nnn nnn nn === 4 
|Scans BEGIN-ENTRY for ENTRY type 1 |RAO |SETCH, 5೦೫೮೫೩, SORCH | 
| entries | | | 
beep —4 
| 5೦೩೫೨ AUTOMATIC chain from each | SETCH | EXDT, SRCH2 | 
| ೫೫1೧೫೫೪೫ type 1 entry | | | 
—Á— —— M—— - === fon nnn 4 
|Adds ON conditions to first 1SC24 | None | 
|AUTOMATIC zone | | | 
——«— — — —— —— ——————— —- 1 
|Adds temporaries (type 2) and 15033 | None | 
jindependent items to first zone | | | 
— —— a ED ಆದಾಮ ED aum ಮನಿಲ ಬಾಯಿ OR ಆಜಾನು A ee ಅತಾ ಪಾ ee ee ee ee oe eee ee oe ee ee oe -— — aw NP au ಇತರಾ a on ew eae oe ae ae = am eee AED ae VERD ಆವಾ ಲಾ ee QUA ಲಾ ap ಇದಾ AUD GD ae eee & GD ಮಾ GERD GD ಲಾ ee oo ಆದಾ 4 
{Adds dependent items to subsequent 15088 | None | 
| zones | | | 
el 
|Determines list of dependencies 15039 | 5೮೫೦೫೫, 5೧೫೦೫2 | 
|from INITIAL attribute | | | 
— PD ED a m— I OED CECI ಮದನಾ ES ಘಾ cum ಚಪ aum END Se D ಮಾನಾ ee EA ಆವನಿ eee ee ae ES cune ee ee e e ee — gee D ae an a ao ——À — a eee ಘಾ ಲಾ Se im EP om ಬನು a UND ಮೌನಾ ND a ae a ಅದವ ಆನಾ m VD ಆ eae 4 
[Determines list of dependencies [Scho | SCNCHN, SRCH2 | 
|from DEFINED attribute | | ] 
Rudi MN ದಂ ದ 
{Determines list of dependencies 80215035 | EXDT, SCNCHN | 
{array bound expressions | | | 
boheme nnn nnn ರ“ —— 
{Determines list of dependencies for|SC50 | SCNCHN, SRCH2 | 


|string length expressions | | | 
hl 
|Removes independent item dictionary|SCRUB1 | None | 
jxeferences upon which items in the | | | 
{AUTOMATIC chain depend. | | | 


334 


Table PP1. Phase PP Routine/Subroutine Directory 





a ne ಅದಾ ಸಾಮಾ Imm diris Se Se aeae ee oe mien oe — 
[Routine/Subroutine| Function | 
-——————————----j4----—---- -————————————————-—-——---—-——------------------ —- 

| EXDT |Scans dimensions tables for second file statements with adjustable | 
i | bounds. | 
| | | 
{RAO [Scans BEGIN-ENTRY for entry type 1 entries. | 
| | | 
[RA1 [Tests for end of ENTRY type 1 chain. | 
| | | 
|RA4 [Creates an AUTOMATIC chain delimiter. | 
| | | 
| RA7 [Tests for end of chain. | 
| | | 
| SCNCHN [Scans current AUTOMATIC chain; determines whether reference belongs | 
| . Ito it. | 
| | | | 
| 5೦೫೮೫೫ |Removes independent item dictionary references from the stack of | 
| [dictionary references upon which items in the AUTOMATIC chain | 
| | depend. | 
| 

| 5೮24 | ೬666 ON conditions to first automatic zone. | 
| I | 
[Sc31 [Adds temporaries (type 2) and independent items to first zone. | 
| | | 
15೨೦35 |Determines list of dependencies for array bound expressions. | 
| l | 
[sc39 [Determines list of dependencies from INITIAL attribute. I 
| | | 
|Sc40 | Determines list of dependencies from DEFINED attribute. | 
| | | 
jscaa [Adds dependent items to subsequent zones. | 
| 

| 5೦೨50 [Determines list of dependencies for string length expressions. I 
I | | 
| ೨೫7೦೫೫ {Scans AUTOMATIC chain from each ENTRY type 1 entry. | 
| 

| 5೦೫೦೫ {Sorts chain in order of dependencies; creates zone delimiter | 
| [dictionary entries. | 
| j | 
| SRCH2 [Scans second file statements for dictionary references of labels, | 
| [data items, and structures, which may belong to the current | 
I | AUTOMATIC chains. | 
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€ Table PT. Phase PT Storage Allocation AUTOMATIC Storage 


(TÉ m € ಇದಾ € — ವಾ ನವಾಜ್‌ ದಾನಾ ನ್‌ ಆರಾ ewe we eww GUD GUD ಆನಾ ಆ ದಾ ಲಾ —— UP ಆಸ ಲಾಮಾ ewe ಆನಾ ಆಹಾ ಇಡಾ: ಆನಾ ಲಾ eee ಆವಾ UAD ಆನಾ ಆಯು GUD cum ಅಮಾ eS AUD ಆಮ ದವಾ Gum ಮಟ ಆವಾ ಆನಾ UE ಆನು eee dum 


1 
|Main Processing| | 

| Statement or Operation Type | Routine | Subroutines Used | 
RE OER ಯಿ: mois AEE cur ಇಗ A apa ಕಮ RR cus ಆವಾವ ANUS ಅ, amare OAI-PMH ಅಹಾರ ಲಖನ ಪಾವಾ cost -— am — a ಇವನಾ ಆನಾ ಆಅ ae ED ee a eee ae ee — ದಾಯ apan ae ಅಮಾ ಆನಾ ee Oren ED ಮಾ ಲು eee ee ಖಾಸಾ GEN -—----------4 
[Scans stacked CONTROLLED chain for |MYNAM | DVSIZE | 


| largest dope vector | | | 


þ-------- 





——— —— ——————H—————— 


|Initializes ENTRY type 1 chain scan|DSALOC |MKSTAT | 
{and DSA | | | 
——————— — ——— enn nnn nnn nn nnn nnn nnn nf 
|Allocates slots for ON conditions |DSA4 | MKSTAT | 

mh 
[Allocates storage for workspace and|DSA10 | None | 
|for DSA addressing vector | | | 
aa lo a a —À — —À — —— — e ce cee — eS ee À—  — ce  — — ee co oe " me a ee À — ee —— ee oe ee ewe 4 
[Scans AUTOMATIC chain and allocates|DSA16 [COPY, DVSIZE, INITDV, MKSTAT, | 
| storage .for dope vectors | | STDVIN | 
————————— nn nf nf a ಪಪ a 1 
|Allocates BUY workspace |DSA17 | None | 
wa a nn nnn fn nn nnn nf — nnn nnn nnn nnn nnn nnn 
|Allocates storage for parameters [DSA19 | None | 
D ಆಟಾ ಅದಾವ o ಮಲ ಬಾ ARM UED ಆನಾ ನಾ ನು GNED ನಿಮಮ ಇಂವಾ AUD ನಾವಾ A ಆನಾ EAD ಅದಿರು ಕನಾ GEND ನನಾ ನಿವು URL ಮಾ ನಾವಾ, ಆದಾ ಮಾ ಎಮ ಆನಾ ಇವಾ ಆ qe e—— wes ಮಾ oe a MÀ eee oe ee ape cum cu ರಾಜಾ — ee ee ನಾನಾ ಬಾ A ನಾ ಘಾನ ಜಾ ಪಾಪ QA au ಜಾ ಆಜಾ ಆನಾ ನಾ AM CA ಬಾ ಪಚ P ಜಾ Duo ಜನಾ ಲಾ ಇಷಾ 1 
[Allocates storage for double |DSA25 | None | 
{precision variables | | | 
——— Te GEN UND ES Ne ES ಆನೂ ED EE quiu) EE cup um ಆನಾ ಲಾ ED cu ED a ae an ಇಮಾ anan — qp ಆರ OLS a ಆದಾ m ಆವಾ ಲ್ಯಾ «RO SP AP AS ನಾ ಬಾಲಾ AS A AS DD GRED AED GD ಲಾ ಲಾ ಲಾ > ಆವಾ ದಾ ದಾ ಆಸಾ ವರಾ ಆನಾ ಆವಾ PD ಇರಾ ಲಾ CP uo GU ಆ 1 
|Allocates storage for single |DSA29 | None | 
{precision variables | | | 
he —}----------------------------------- 1 
|Allocates storage for character | DSA38 | None | 


| [strings and halfword binary | | | 


————— A A — SS 


|Allocates storage for bit strings |DSA46 | None | 
[Allocates storage for arrays and |DSAS54 © |COPY, INITDV, MKSTAT, SDVCDE i 
|secondary dope vectors i | | 
luiiocates storage for structures ತರ — 1GOPES MASTAT /———— CO i 
[Gets VDA and initializes dope [DSA72 — ್ಪ್ಪ%್ಷ | COPY, INITDV, MKSTAT, STDVIN 


| 7೮೦೬೦೫೨5 for adjustable regions of | | 
[AUTOMATIC chain | | 


| 

| 

| 

—— ——Pr— — P —— P €: 
} 


|Allocates storage for DEFINED items|DSA98 | None 


Man i a i a a es eh ae eh oe pe ew ಣಾ 
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eTable PT1. 





Phase PT Routine/Subroutine Directorv 





[Routine/Subroutine} Function = ~*&Y 
[coi — ಯ A for alae oe ಚಟ ಜಾನಸಾರ್ಛ್ಸ ಲ್‌ 1 
{COPY |Compiles code to copy skeleton dope vector into real dope vector. | 
| DSALOC [Initializes ENTRY type 1 chain scan and DSA. | 
|DSA4 ಅಜ್‌ slots for ON conditions. 
|DSA5 |Allocates standard save area and flag bytes. | 
|DSA10 cee storage and workspace for DSA addressing vector. | 
1057116 em AUTOMATIC chain and allocates dope vectors. | 
|DSA17 ಸಂಕು BUY workspace. 
|DSA19 (PU) |Allocates storage for parameters. | 
[DSA25 (PU) TENOR storage for double precision variables. 
|DSA29 (PU) ಕಜ storage for single precision variables. | 
| (5838 (PU) |Allocates storage for character strings and halfword binary. | 
|DSA46 (PU) [Allocates storage for bit strings. 
‘pease |Allocates storage for arrays and secondary dope vectors. | 
8268 |Allocates storage for structures. | 
[೫೬72 ಇಪ dope vectors for adjustable regions of AUTOMATIC chain. 
nga ಗ pointer to skeleton second file statement. 
[psass |Allocates storage for DEFINED items. | 
— TRIN TE Storage required for dope vectors. 
skies |Compiles code to initialize dope vectors. 
೫824553 [Gets VDA for this region of AUTOMATIC chain if required. | 
ovarii (PU) |Determines size of dope vectors. 
po [Compiies code to initialize address slot in dope vector. | 
kA |Makes a second file statement. | 
(ಳಾ! ToS CONTROLLED chains. | 
| apvcps (PU) ಹತಾ code for secondary dope vectors. | 
Si i structure member dope vectors. | 


Chapter 3: Flowcharts, Tables, and Routine Directories 337 


Table QF. Phase QF Storage Allocation Prologues 


(700mm ವಾ ಮಾವ Se ನಾ amm im Sees io (ote ctum inue purs GERD Qe eee Cm cru OS CEN) CUL ಅವು CUR ಯಾ UNA ಅತವಾ ಮು ಸು ಇಮಾ m — A» OF UD OP ROE OO ಆಹಾ ಆಹಾ ಆಹಾ ಆಜಾ BOOS ದವಾ ಆಸಾ UID ಲಾ ಆನಾ QUUD ಆಮ ಆನಾ ಆವಾ ಆರಾ = 


"e 1 
| |Màin Processing| | 
f Statement or Operation Type | Routine | Subroutines Used | 
dp——-————-—-----—-———————————R--------—----—------ ————————————--—————------4 
'|Scans text for statement labels, |೧೫೦೦೦೦ |QBEGEP, QBPROL, ೦805, ೦೫೦೪೫೫, ೦7೩೦೬, | 
| PROCEDURE statements, BEGIN | | OSL | 
|statements, BEGIN END statements, | | | 
|and end-of-program marker | | | 
poh 4 
| Processes statement label losL | QMOVE | 
| pseudo-code items | | 

~--~---------------—--—--------— }--------------- }+---------------------------------- -4 
{Frees text storage at end of phase; |QEOP | QMOVE | 
[releases control | | | 
beh 


|Creates stereotyped prologue for a |QBPROL |QADJAL, QFSKIP, QF0201, QMOVE | 
|BEGIN block requiring a dynamic | | | 
{storage area | | | 
| -----—-----------------——-—--------}--—------—----} --------------------------------—- 

|Creates stereotyped or special | QPPROL |QADJAL, QFSKIP, QF0201, QMOVE, | 
|proloques for PROCEDURE statements, | | QONPRL | 
[depending on conditions.  Processes| ‘| . I 
| statement label pseudo-code items | | | 


ee 4 
[Creates a compiler label marking | OBEGEP . |QADJAL, QF0201, QMOVE . . i 
|the return from a BEGIN block | a i | 
|Creates a prologue for ON block | QONPRL |QADJAL, ೧೯೮5೫೫೨, QF0201 | | 
|Assembles code to initialize DSA | QADJAL | ೧೫೦೪೫3. | 


|dope vector data areas, and to | wo co] | 
| ೩೩3೦೧೦೬೩೬೮ variable data areas | M AE | 
|----------~---------------------- —}--—-----------} — ——H— X! 
|Skips second file statements JQFSKIP - | None | 
[following a block heading statement| ' 2 s. | | I 
ದ ದ —À—À ee MÀ— ee ee €— € ಜಾ enn ಪಾರಾ ಮಾಸಾ ಪಾರು ಕಾಕಾ ರಾರಾ ತಿ ಹಾ —À——MÀ——MQ ae ಮಾಹಾ ree eee ಬಾ ಆತಾ ಆಹಾ ಆನಾ ಅರು ಆಹಾ: ಶಾಟಾ ಕಡು memes 
[Obtains new buffer and chains it to|QrFo201 | None Am | 
{the previous one | | - | 
OS 
{Moves input text being skipped from| QMOVE | None | | 
{input buffer to output buffer | | | 
bh d ವಸವ —— ÀÀ' 
|Moves a second file statement, | OMOVE1 | OMOVE | 
[pointed at by PAR1, to the prologue| | | 
|being generated | | | 
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Table ೧೯%. 


[Routine/Subroutine | 


nc 


| Assembles code to initialize DSA dope vector, variable data areas, 


| QADJAL 
| 


| 
| OBEGEP 


| QBPROL 
| 


| 

| QEOP 

l 

| OFSKIP 


| 
1೦೯೦೦೦೦ 


10೫1172 
orien 
೦೫1215 
1071533. 
| ೦೫೦೪೫ 


| 
| ೦೫೦೪೫೩ 


(QG) 


(QG) 


(QG) 


| 
|QONPRL (QH) 


JQPPROL (QG) 
l 


| 
[QSL 


Phase QF Routine/Subroutine Directory 


Function 


land to allocate variable data areas. 


[Creates a compiler label marking the return from a BEGIN block. 


[Creates stereotyped prologue for a BEGIN block requiring a dynamic 


[storage area. 
{Frees text storage at end of phase; releases control. 


| Skips second file statements following a PROCEDURE or BEGIN 
|statement. 


[Scans text for statement labels, PROCEDURE statements, BEGIN 
jstatements, BEGIN END statements, and end-of-program marker. 


[Moves code to output buffer; obtains new buffer if required. 
[Tests for external procedure. 

pd prologue for GET DSA. 

ಜಾ code to copy argument and target addresses. 
rent for entry points. 

|Tests end of chain. 

|Tests end of first region. 

|Extracts mapping code from second file. 

PORE for storage required. 

| Removes VDA accumulator assignment code from mapping code. 
ves text from input buffer to output buffer. 

[Moves second file statement to prologue being generated. 


| 
[Creates prologue for ON block. 


[Creates stereotyped or special prologues for PROCEDURE statements, 


[depending on conditions. 


|Processes statement label pseudo-code items. 


Chapter 3: Flowcharts, Tables, and Routine Directories 


339 


Table QJ. Phase QJ Storage Allocation Dynamic Storage 


3 
| |Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
bh $——~~----~-——-~----~-~-----------—- 
[General scan of text for ALLOCATE, |GS1 |ALLOC, BUY, BUYP, FREE, TRF1. 1 
| BUY and FREE statements | | | 
j--——-----——-—-------————---—--- | ——- fame nana nanan nnn nnn nnn == 1 
[Allocates items not requiring dope |AL20 | AL15, TRF2 | 
| vector | | 
~------------------------------—-- ¢---------------}--+~--------—------------------—--] 
|Generates code to move skeleton | MOVEDV | TRF2 | 
| 6೦೧೧೮ vector into workspace for | | | 
[controlled variables | | | 
eh ho 
{Looks ahead to reverse pointers for|REVPT {GS1, TRF1 | 
| ALLOCATE statements | | | 
~~~--~----—-----------------------— fl 
|Allocates storage for controlled | AL28 |GS1, LIBC1, LIBC2, SCANSF, TRF2 | 
[string | | | 
~--~-----------~---—-------------— hl 
{Allocate storage for controlled | 
| 


AL27 | ABOUND, LIBC1, MOVEDV, PREVAL, | 
| 


[array | SCANSF, TRF2 

ehh 
[Allocates storage for controlled | AL29 |BNDEXP, LIBC1, MOVEDV, NXTREF, | 
[structure | | NXTVAR, PREVAL, SCANSF, TRF2 | 
med 
| Loads Library call parameter | FREE {TRF2, TRF3 | 


|register to free allocated storage | | | 


———— M — ———————o: 


|Moves skeleton dope vector for | BUYP | TRF2 | 
| bought temporary | | | 
hl 
| Buys storage for tenporary array | ೫೫1 | SCANSF, 7೯೯2 | 
I-------- A" UD ae ae RA CRAT ಲಾ cum AD ee ee VEND uuum ee ee eee eee he -——— ee — ee om Ame GA ee ನಾಸ: A ಜಾ ಲಾ ಜಾ ಲಾ ಲಾ ಮಾ ಯಾನಾ ಲಾ cuum oe GEN ee) eee ee ಲಾ oe ಆ 
| Buys storage for temporary | BY13 | 12808, NXTREF, NXTVAR, SCANSF, TRF2| 
[structure | | | 
bee 
{Places initial value code line for |AL15 | NXTRF, SCANSF | 
[controlled variables | | | 
ee f--------------- $-----------------------------------4 
|Skips scan register over | SKIPTX |GS1 | 
linitialization statements | [ | 
}-----------------------------------}---------------} --------------------------------—--{ 
{Generates code to set a pointer to |PREVAL | TRF2 | 
{the previous allocation. | | | 
pe ees as a SS SL ಸಾಹಾ a ee eaters 4 


1 + + 
[Searches dimension tables for | ABOUND | SCANSF | 
jadjustable bound expressions | | | 


bd 


[Generates code for temporary | STMP |LIBC3, TRF2 | 
|variables requiring only a dope | | | 
| vector | | | 
ಓದಿ ಸಾಸ ವಿ ವ ಸವ ಸಾ ಸವನ PIE MET ತ ಸವಸ ಸಾ ವಿಮಾ ನಮೂ ತ J 
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Table QJ1. Phase QJ Routine/Subroutine Directory 


| Routine/Subroutine | Function 

ಹಾ (QU. ಇ sescchos dimension Gallas co adjustable Lourd Carrere 
ee (QK) |A^scertains the type of allocate statement. 

PD |Places initial value code line for controlled variables. 

5 (QK) ಹ್‌ items not requiring dope vector. 

aay (OK) |Allocates storage for controlled arrays. 

fore (OK) |Allocates storage for controlled structures. 

ಹ ಯು or extracts code to set the adjustable bounds of 

| |structures. 

[pov i the type of buy. 

ಇತು ಸಿ skeleton dope vector for bought temporary. 

esi |Buys storage for temporary structure. 

ಇಷ್ಟೂ ಹ storage for temporary array. 

oe |Buys storage for temporary string. 

ಸು (೧೯) |Loads Library call parameter register to free allocated storage. 
T |General scan of text for ALLOCATE, BUY, and FREE statements. 
ಜಗಾ |Places the library calling sequence for controlled storage in 


MOVEDV (QK) 


|NXTREF (QR) 


|NXTVAR (QR) 
|PREVAL (QK) 
| Rever 
leens 
lósross 


| 
|STMP (೧೫) 
| 


l 
| TRF1 
| 
| TRF2 
I 
| TRF3 


| sequence in the text. 


| 
| Generates code to move skeleton dope vector into workspace for 
|controlled variables. 


|Obtains the next structure base element reference. 


{Obtains the next varying array base element reference. 
| 


| Generates code to set a pointer to the previous allocation. 
oaks ahead to reverse pointers for ALLOCATE statements. 

i iaces second file statement in the line in the text. 

|Skips scan register over initialization statements. 

Newer vege code to buy storage for temporary variables which only 
{require a dope vector. 

{Transfers input text to output. 

re text skeletons to the output text. 


| 
[Adds the Library Calling sequence to the output text. 
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@Table QU. Phase QU Alignment Processor 
eee et ee ee ee ಲಾರ್‌ acy am ear ma are eer quee ee ee mmm ee a 
| [Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
md 
{Tests pseudo-code instructions for |ALIGNQ | ALREGQ, MVCMAK, REGENT | 
|misaligned operands and deduces the| I | 
[correct alignment | | | 


ae a nf a nn fn nn on ee 


{Generates a move character (MVC) | MVCMAK | ABEOT, NEXREG, OUTEST, PSMOVE, REMOVE, | 
linstruction for a misaligned | | 5೫೫೫೫, TRANS | 
| operand | | | 
bh a eee 1 
|Skips a pseudo-code item {T3 | TNEXT | 
hh P 1 
| Processes the load address (LA) | TLA | TRR | 
|pseudo-code instruction | | | 
{Processes the library calling | TLTB | ABEOT,T3 | 


|sequence in the pseudo-code l | | 


RR SENET ಹತ್ತಿ ವಾ ಯಯಾ els ee ES eee ( 


{Processes the L pseudo-code | TLL | onthe TER al REMOVE, | 
{instruction | 50553 TRANS, TRR | 
be ho 1 
|Processes pseudo-code instructions, |THT |ALIGNO,TRRS 


jother than L and LA, that may have | | 
|misaligned operands 


-4 

|Examines a pseudo-code item and | TRANS | T3, TABS, TDROP, 7೫೦೨, THT, TLA, TLIB, 
|passes control to the appropriate | |. — | TLL, TRR, TSN 

{processing routine 
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e Table QUi. Phase QU Routine/Subroutine Directory 





|Routine/Subroutine| 2 ಬಜ Function | 
up ಚ 22 ಜೂ 777 PEINE 
ee [Tests whether or not the register is in the register table. | 
NEE {Gets a symbolic register. 
{OUTEST MEN a new output text block if required. | 
| PSMOVE eie current output text block and gets a new one. | 
| REGENT |Makes an entry in the register table for a register that has been 
| | loaded with the address of a misaligned operand. | 
| REMOVE cpie text into the output text block. 
| SNEXT Tm next pseudo-code item in the source ext: 
| TABS [Scans absolute code and copies it onto the output text if ಜ್‌ 
170೧೦2 Se dropped registers from the register table. | 
| TEOB |At the end of a source text block, moves out the scanned text and | 
| {gets the next source text block. | 
gp |At the end of the program, outputs the remaining text, and releases | 
| |control. | 
Is |Deletes an assigned register from the register table. | 
(Te [Updates the statement number slot in the communications region. | 
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Table QX. Phase QX Print Aggregate Length Table 


|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
el ec a na ep a ಸಾಚಾ ಸವಾ ಸತಾ ಸಾವ ಹಾ ಪಾಸ eet da la ಸವಸ 4 
[Scan storage chains in dictionary |SCANC | ANAGG, PRNTAB | 
[for aggregate entries | | | 
}----------—---------------—-------—-}---------------}--------------------------------— 
|Analyze aggregate dictionary | ANAGG | ANCOB, EXTENT, FINALA, FIRSTA, FORMAL, | 
jentries and print table entry | | GETVO, GETSB, MAKEN, PRHED, SORTEN, | 
| | | VOPLUS I 
bee EES REE ಸಾಹಾ ಹಕ oe ete ————— —————— EE EQ 


Table QX1. Phase QX Routine/Subroutine Directory 


a nn nr 7} 


|Routine/Subroutine | Function | 
| ANAGG | Analyzes dictionary entries for a major structure or non-structured | 
| array. | 

| 
| ANCOB [Finds original major structure dictionary entry for a COBOL major | 
| | structure. | 
| | | 
| EXTENT {Calculates length in bytes of a data variable, label, task, event, | 
| lor area. | 
| | 
| FINALA {Calculates address of final basic element of a major structure. | 
| | 
| FIRSTA {calculates address of first basic element of a major structure. | 
| | 
| FORMAL [Calculates length of a non-structured array. | 
| | 
| GETVO [Gets virtual origin of a dimensioned variable. | 
l l 
|GETSB |Sets pointer to BCD in a dictionary entry. | 
| | 
{MAKEN |Makes an entry in text block for each aggregate. | 
| | | 
| PRHED |Prints main heading and sub-heading of table. | 
| | | 
| PRNTAB |Prints Aggregate Length Table. | 
| | | 
| SCANC {Scans STATIC, AUTOMATIC and CONTROLLED chains in dictionary for | 
| | aggregate entries. | 
l | l 
| SORTEN |Sorts text block entry for aggregate so that the entries are chained| 
| jin collating sequence order of the aggregate identifiers. | 
| | 
| VOPLUS {calculates address of first or last element of major structure. | 

4 
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€ Chart 10. Register Allocation Logical Phase Flowchart 
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Chart RA. Phase RA Overall Logic Diagram 
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eChart RD. Phase RD Overall Logic Diagram 
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Chart RF. Phase RF Overall Logic Diagram 
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* * 
ಎಎ ಎಕ್‌ B1 * 


Table RA. Phase RA Register Allocation Addressibility Analysis 


Agam Soc eg RC a ee ee ee ea ga en ee ee 1 

{Main Processing| | 
i Statement or Operation Type | Routine | Subroutines Used | 
-———— —---------—-}-----—--------} ---------------------------—---—-| 
[Controls scan of source | LAA | ACT1, ACT2, ACTS, ACT8, ACTS, | 
l | |ACT10, ADCBUF, GETSBF | 
t------------—------—--—--------— $--------------- 4-----—--~-------------------------- 1 
[Processes RX, RS, or SI |AcT3 |ADTEST, DRTEST | 
| instructions | | | 
bo 
| Processes SS instructions [ACTU |ADTEST, DRTEST | 
|-----—-----------------—---------- }-------- ~------}~----—---~------------------------ 4 
[Compiles code for start of PL/I |ACT15, ACT14, |ADCBUF, GENFLP, UPSN | 
|Statement: 1. with label, 2. | ACT16 | | 


[Without label, 3. compiler label | | | 


—— ———— — — M: 


|Processes PROCEDURE and BEGIN |ACT6 | ADCBUF | 
| blocks | | | 
~----—---—---------------—----—- ~-}---------------} -—----- -- — —---------------------4 
| Processes END statements on | ACT7 | ADCBUF | 


{PROCEDURE or BEGIN blocks | | | 


ee —— 


|Adds text to output string | ADCBUF | GETCBF | 
|Adds text to insertion file | ADIBUF | GETIBF | 
}-------~--——-~-~-—--------—- -------~--4-~-- ---- — 4 
{Obtains new source buffer | GETSBF | None | 

----—---—---------—--———-------- 4---—-----—-—-- -}-----—----—-—--------------------- 1 
[Obtains next output buffer | GETCBF | None | 
wa -- === =~ = === == = = ff nn nnn nnn 
{Obtains next insertion file buffer |GETIBF | None | 
|-----—-------------------------—} -------------} ------------ —----- =~ --------- = 4 
| Examines dictionary reference in |DRTEST |ADINST, DECOMP, SETBLK | 
| source | | | 
—P == $$ nnn fn d 
| Produces recovery code when literal|ADTEST | ADCBUF | 
joffset greater than 4095 is met | i : | 
}-----—---—------------ —----------} ---------------} — —— —————— 
[Creates coded addressing |ADINST |ADCBUF, ADIBUF | 
i instructions I | 1 
PSE eee Rr ee "—————————— 1 
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Table RAl. Phase RA Routine/Subroutine Directory 


wane HS Se pe ee +--+ + + + +--+ +, 


| Routine/Subroutine | Function | 
hc —— 1 
| ACT1 |Copies non-special three-byte item to output. 
|ACT2 | Copies non-special five-byte item to output. 


| 

| 

| 

|ACT3 | Processes RX, RS, or SI instructions. | 
licis NES SS instructions. | 
{ACTS {End of block routine. | 
| ACT6 oc PROCEDURE and BEGIN blocks. | 
{| ACT7 | Processes END statements on PROCEDURE or BEGIN blocks. l 
| ACT8 re of source text routine. | 
| ACTS |Action of start of common block of prologue. | 
| ACT10 [Action at end of prologue. 
TES [Copies absolute code to output stream. 1 
PE [Creates ADI instruction at prologue insertion point. | 
nona [Coptic code for start of PL/I statement with label. 
ens (ceases code for start of PL/I statement without label. 
RET [Compiles code for start of PL/I statement compiler label. | 
ee TR store of calculated address. | 
ಜರಿ adde text to output string. 
ಬಾ [Adds text to insertion file. | 
inm T coded addressing instructions. | 
ues |Produces recovery code when literal offset greater than 4095 is — 
ee {Tests whether previous offset is out of bounds. | 
ಚ |Decodes dictionary reference. | 
ಸ್‌ (RB) jExamines dictionary reference in source. 
m [Scans step table and generates addressing instructions. | 
| GENFLP |Generates code to set bits on and off in a prefix ON-slot. | 
ಟ್‌ |obtains next output buffer. | | 
9288 JObtains next insertion file buffer. 
ಜ್‌ jObtains next source buffer. | 
D iecur input text. | 
[1125 |Moves addressing instructions to IN-LINE. | 
5೫79೩8 | rinds block number of referenced item. | 
| UPSN {Generates code to keep the statement number slot in the DSA up to 
| | date. | 
Lea ಹಾ ಅ SNE J 


@Table RD. Phase RD Use Determination of all EQUs 

aaa a moe qo unc 

[Main Processing| I 
| Statement or Operation Type. | Routine | Subroutines Used | 
hh 
{Initializes text blocks for tables |LINIT | None | 
hd 
|Scans text | LBUILD |LEQV, LBC, LBAL, LOBR, LEOB, | 
| i | LABS, L3BYT, L5BYT, LVARB, | 
| | |LSTAT, L2BYT, LEOP | 


— ————— ——— SS 4 
| Processes EQU items | LEQU | FNDIND | 
mm m» ಆಇ ಆನಾ cm umo chus ee ಮಖ ee qum VD ee UND ee ದಾನಾ dum UM ee ee ಚಂ, m aum amm ಅಲಾ um aum ಆನಾ um 4 
[Processes BC items | LBC | FNDIND | 
bom + 


|Processes BAL items | LBAL |LOBR, L5BYT | 


hl 


| Processes any other branch item | LOBR | FNDIND | 


--—--——---——-------—---—-------------——-----—-—---—------—----—---------—------—------ 4 
[Skips a 2-byte item | L2BYT | Non | 
ee + ef 
|Skips a 3-byte item | L3BYT | None | 
—— P —  —— $-~------—-----+} ————————Pla! 


|Skips a 5-byte item | LSBYT | None | 


—— ———— —P — —— ————— 


|Skips a variable length item | LVARB | None | 


na = = pn 2... wn nnn nnn 1 


| Processes a statement number item |LSTAT | None | 


el 


| Processes an EOB item | LEOB | None | 





t 

|Scans absolute code | LABS | None | 
ed 
|Finds the indicator byte and text |FNDIND | None | 
[reference of an EQU value | | | 
ee bh 
| Ends table build and passes control|LEOP | LSCAN | 
|to second section | | I 


—— —— I Q— a: — ರಾಗಾ ಪ ೂೂ್ಠ 1 


[Scans tables for optimizable EQUs  |LSCAN |LFLAG . | 


hl 


| Flags EQUs in text as optimizable  |LFLAG | None | 
a SRA SRLS ES ES. TEEN MLSE ಕಾಸೂ ಕಾನ ಸಾವ ಸಸಾರ EEE: 4 
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9 Table RD1. Phase RD Routine/Subroutine Directory 


a 


| Routine/Subroutine | Function | 
mono [Finds indicator byte and text reference of EQU alee | 
ಚ TEM absolute code 
| LBAL laas BAL items i 
eee ಜ್‌ BC items 
LBUILD | Scans text | 
leos rrr EOB items | 
| LEOP Le table build and passes control to second section | 
| LEQU TET EQU items | 
| LFLAG ಜ್‌ EQUs in text as optimizable | 
[2229 | initializes text blocks for tables | 
| LOBR ಅಸರ any other branch item 
| LSCAN mm tables for optimizable EQUS 
| LSTAT |Processes statement number items | 
| LVARB DIEM variable length items | 
pops TERME 2-byte items i | 
ತ |Skips 3-byte items | 
[೩೮೫೫೮ Trips 5-byte items | 
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Table RF. Phase RF Register Allocation Physical Registers 

a eg eg Te eee Oe tet ee See ee ee OC NEM EM C rM E ಸಷ ಮಾದವ ದಾ 
[Main Processing] 

| Statement or Operation Type | Routine | Subroutines Used 


Controls scan of text 


|29 | ADCBUF, ADIMOV, BR1, BR3, BRU, | 
[ |GETNXT, LBAL, LBALR, LBCTR, LEOB, | 
i | LEOP, LR1, LR3, LRU, LR6, LR7, LR9,| 
| 158777, ೦೫೫೫೦5 | 


~----—---—------~-—-- —--- — (a a: ----------—------- 1 








[Processes PROCEDURE or BEGIN | LPROC | None | 
| statement | | | 
—--——--—-------- ——-- ——--—--- -- 4 -- -- + - + --} -—- +--+ - - ಸ — —- + +--+ ++ 
| Processes end of PROCEDURE or BEGIN|LEND | None | 
| block | | | 
ļ--—-—-- nn ಮುಳಬ ಸದುದ ಎರ nnn nnn nnn 
[Processes requests for registers; |OBREGS | BRGUSE, LOAD1, STORE1, STORE2, | 
[allocates physical registers | | REGUSE | 
bh 
[Compiles code to store symbolic | STORE2 | ADCBUF | 
[registers | | l 
ಹ ———————————————-—-—- ee —- 1 
[Compiles code to store assigned | STORE1 | ADCBUF | 
[registers | | I 
T ———————— ——À—— a O 
{Compiles load of physical registers|LOAD1 | ADCBUF | 
[Compiles load register | LOADRG | ADCBUF | 
SN 
| Expands coded addressing | ADIMOV | ADCBUF ; | 
jinstructions | | | 
bo ween ತಾತ 
{Adds to output buffer | ADCBUF | None 
a ತಾವೂ ee ತಮಾ ವವ ಅತಾ ತೆ 


Table RF1. Phase RF Routine/Subroutine Directory 


[Routine/subroutin] = Function | | 
[ancsur —— [adds to output BE ee 
ಜ್‌ ಜ್‌ coded addressing instructions. 
ರ ಬ್‌ use Of base register in look-ahead. | 
bud: (RH) pn Moe RX branch instructions. ! 
T (RH) POEM M BCT instructions. 
|BR4 (RH) |Processes RR branch instructions. | 
| FRTEST caus list of free registers to make even-odd pair. 
ಜ್‌ [obtains next block. 
|LAD1 (RH) | Processes AD1 (addressing) instructions. | 
LE (RH) [constructs and puts out completed instruction. | 
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Table RF1. 


Phase RF Routine/Subroutine Directory (cont'd) 


| Routine/Subroutine | 


A 


|LBAL (RB) 
ರ್‌ (RH) 
|LBCTR (RH) 
foe (RH) 
ea (RH) 
ಚತ (RH) 
ros 
pe 
tonnie 
PET (RB) 


| 
|LR1 (RH) 


I 
|LR3 (RH) 


| 
{LRU (RH) 


| 
|LR6 (RB) 
| 


| 
|LR7 (RB) 


| 
|LR9 (RB) 
| 


PS (RH) 
DADA 
"06 (RG) 
"07895 (RG) 
92823 (RH) 
ಸಸಿ (RG) 
ಕ 
enone 
Mt 

m (RB) 


| 
[z9 (RH) 


Le em 
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| Processes 


ಜ್‌ 
| Processes 
| Processes 
ಹ end 
| Processes 


| Processes 


Function 
BAL instructions. 
BALR instructions. 
BCTR instructions. 
DROP pseudo-instruction. 
of PROCEDURE or BEGIN block. 
end-of-block marker. 


end-of-program marker. 


[Compiles load of physical registers. 


[Compiles load register. 


| Processes 


| Processes instructions in which first and second operands require 


PROCEDURE or BEGIN statement. 


| loading, and the first is altered, e.g., AR. 


| Processes 


| Processes 


floating-point instructions. 


SS instructions. 


|Processes instructions where a load of first operand is required, no 


{operands are changed, e.g., ST. 


| Processes 


| Processes 
[and it is 


| Processes 


SI instructions. 


instructions in which no load of first operand is needed, 


changed, e.g., LA. 


shift instructions. 


[Tests whether all registers are available. 


|Generates 
M 
iin text 
| Processes 


| 
| Tabulates 
| 


stores of registers if branch in or out. 
code to load registers. 

scan. 

requests for registers; allocates physical 


use of registers in look ahead. 


| Compiles code to store assigned registers. 


[Compiles code to store symbolic registers. 


| 
|Fxtracts ADIs at prologue insertion point. 


[Controlling scan of text. 


d ee eus cs e t tm m m eas um uum m m an mam eum rmm amm a a m o ee er m m e te n ಚ 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
registers. | 
| 
| 
| 
| 
I 
| 
| 
| 
| 
| 
J 
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Phase TF Overall Logic 
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Chart TJ. Phase TJ Overall Logic Diagram 
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e. 


LUD 
seseesze secet. 


GENERATE TEXT ಕ್ಷ 
bor SUBROUTINE M 


M 
$0920000006000009 


Chapter 3: Flowcharts, Tables, and Routine Directories 


359 


Chart UA. 


Phase UA Overall Logic Diagram 


UAOQ0 
PAS OTE PTS 
* * * * 
* + * GET HEAD OF * 
S INITIALIZATION tess STATIC CRAIN : 
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Chart XA. Phase XA Overall Logic Diagram 
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$53999999959999999 | 
sees 
$AA * 
« Hus 
$s 
*$99990C399$2$$99$999* *?***tCuet*e'o??599**9 
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* * 
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Phase TF Final Assembly Pass 1 


es ge ae ವಧಾ ಮಾ ಜದ er YR E IU TT ey DAE NR ee ನಾ ಜಾನ್‌ a A P a a aaa a TE 3 


|Main Processing| 


| Statement or Operation Type | Routine | Subroutines Used 
bd 
{Scans text {1L0024 | None 
}----~----—------------------------- }--------------- }----~------------------------------ { 
{Assigns offsets to labels |IL0019 | FINEQ1, NEXTSL 

—— —————ÀÁ— i. ——— —— ————9So 
|Increments location counter for {IL0014 | None 

[machine instructions | | 
}---------—------------------------ + -------------- }~----------------------------- 

| 2೮೭೮೫೫೩7೮೮ code for instructions [IL0020 | FINEQ1 

{which refer to labels | | 

ಹಾನಿ p--------------.(j]----------------------------- 
{Initializes location counter at | IL0010 | None 

jstart of procedure | | 

ae ಷು ವೆ ಎವಾ te a ವದ j-------------——L4----------------------------- 
[Stores size of procedure and 11L0011 | None 


[resumes containing procedure | 


Table TF1. Phase TF Routine/Subroutine Directory 

[Routine/subroutin] Funtion 4 
ಆಜಾ e ಎಇ ಆ ಐ ಜರ್ಟ 7 0 ನ್‌ 
T ies point from compiler control. 

Vries |Entry point to scan from initialization routine. 

TATE ಜಟಾ location counter at start of procedure. 

TT, [Stores size of procedure and resumes containing procedure. 

110014 ಟ್‌ location counter for machine instructions. 

oie es the start of prologues. 

[110017 ಇಟ control. 

| 250039 {Assigns offsets to labels. 

1320020 ` EE E code for instructions which refer to labels. 

[110022 [Processes end-of-block pseudo-code item. 

Tado [Scans text. | 

— {Determines multiple statement label entries in dictionary. 


bee oe ee Poe — M ee ಸಾ ee re ee ee — — «a ey ತಾನ ee ee ee ee ee ee GEN» ee ಹಾಸ ee ED d, ee UD ಆನಾ ಘಾ ಅಜಾ ee ಆನಾ ರಾ oe ee me ಆವಾ ಆನಾ ಘಾನ ಆನಾ ಮಮಾ ನಾ ಅವಾ ಆನಾ re ee es ಆನು eee oe 
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Table TJ. Phase TJ Final Assembly Optimization 


ee es ee DE C gocce ye ee Se ag eg se one ಅವಾ ne me C EUM 1 

|Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
~---------------------------------- J 
| ೮೦೫೧೬೫೦3೩8 phase |IL0000 | OPTIMA | 
Se = == —  :————— =- 
|Maintains location counter for [IL0014 | None | 


|machine instructions | | | 


}-----------------------------------}---------------}-----------------------------------4 


|Assigns offsets to labels |IL0019 |COMRTN, FINEQ1, NEXTSL | 
bom ———— | poo ————— 1------ ಕ ಅ ಜಂ "ಸದ" ಶೋ" ನಾ ಭಾ 
{Determines code for instructions | 1L0020 | FINEQ1 | 
[Which refer to labels | | | 
-~--------—--—--------------------- }--------------- }----------------------------------- 1 
|linitialize location counter at 1220010 | None | 
|start of procedure | | | 
-~--------—--------------—--------- }--------------- $-------------~--------------------- 1 
|Stores size of procedure for |} IL0011 | None | 
[machine instructions | | | 
od 
|Reduces number of MVC instructions |IL0027 | OFFSET, OSMRTN | | 
bee 
{Determines offset from a given | OFFSET | None | 


{dictionary reference | I | 


Lm ಮಾ ಹಾಸ ನವನ moma enna ವಾಟ ಹಾಕಾ ಹಾ ಇ ಅಹಾ ————À ————— ——————————————— ——— —Ó": | 


Table TJ1. Phase TJ Routine/Subroutine Directory 
(>, ee Dp cc CaL LLL M aR RSPR SI aa aa as 1 
l | 


Routine/Subroutine Function | 
[COMRTN [Determines whether further optimization is possible. ಇಂ ೂಂ್ಬಬ್ಬಂ ಯ ಇಂಇೃ್ದಇಷ 1 
Verne oes label number table entries. | 
120000 IET phase. | 
| IL0003 CM point to scan loop from initialization. 
{120010 | Initializes location counter at start of procedure. | 
[110011 ವಜಾ size of procedure and resumes containing procedure. | 
[IL0012 ಶೆ machine instructions, etc. | 
|IL0014 EE location counter for machine instructions. 
oe |Assians offsets to labels. 
| IL0020 |Determines code for instructions which refer to labels. | 
1320621 ER pseudo-code item length and updates text pointer. | 
ree ides MVC instructions. | 
[IL1001 |Evaluates new ADCON needs. Sets location counter to zero. | 
11121101 ಜ್‌ content of containing procedure. i 
ತೆ oaks for equivalent statement labels. | 
[OFFSET (TK) | Determines offset from a given dictionary reference. | 
ಬೌ ಜ್‌ text. | 
[೦೮೫೫೫ iocans ahead for literal offsets. i 
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Table TO. Phase TO Final Assembly External Symbol ee 


| l [Main Processing] | 


| Statement or Operation Type | Routine | Subroutines Used | 
ಲ M ELM M ವದಸಿ! 
jConstructs first six standard FSD  |LG401 |MOVE, NAME, ERROR | 
jentries | | | 
bh 
{Constructs entries for external |LG001 | MOVE, ERROR | 
jprocedure labels | | | 
ma nanan nnn nnn E fn nnn nn nnn finn nnn nn nn nnn ———— M 
{Constructs PR type entries for each|LG030 |MOVE, NAME | 
{block and procedure | | | 
SEN SEEN eee 1 
[Constructs entries for external | LGO50 | MOVE, ERROR | 
{variables and external entry names | | | 
— a MÀ ಆಹಾ ಆಹಾಆ — ——— ———— — — —— —— —Ó—— — ಜಾ —— RBL————————————— ———————————————————— À——————————-4 
{Constructs entries for controlled  |LG090 |MOVE, NAME, ERROR | 
|variables and task names | | | 
bon 1 
{Constructs entries for Library | IL0200 | 1HEINC | 
| conversion moduies | | | 
Le Bcc let ED |" —————— — À a J 


Table 7701. Phase TO Routine/Subroutine Directory 


| ahaa ar ಮಾವಾವಾ ಮಾಮಾ ದ್‌ ಜಾ LSS SS a ag. au a ನಾ SS ca cua VERD ತಾ apu) ante ಅನಾ up SS ಅಬಲಾ ಆದಾ ಸಾ quis aA DU ಆನಾ ED ಆನಾ ಆರರ ಬರಾ cu ag mam aus GMT ಮಾನಾ E ಆನಾ qp AP ಅರವಾ ಬಂದಾ EE ಆನಾ ಅಟಿ AE e ಸಾನ GAS ವಾನ cum uu m me qum Oe mo a 


| ROUT1NE/ SUBROUTINE H FUNCTION | 
[ERROR — NS | 
| LG001 |Constructs entries for external procedure labels. l 
acio ಆಟಾ PR type entries for each block and procedure. 
| LG050 ಹಣ entries for external variables and external entry names. | 
|1G055 TOU ON-conditions and external variables. | 
| LG080 ಜ್‌ external entry names. | 
oe — FILE constants. | 
|1G090 ಜರ entries for controlled variables and task names. | 
rere a name in ESD entry for CONTROLLED. 
1೦803 ಸ್ಸ first six standard ESD entries. | 
| MOVE [Moves ESD entries to card buffers, and puts out buffer when full. 
| NAME TONNES names for pseudo-registers. | 
ವಾಸದ (TQ) Ieper a string of Library module names. | 
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Table TT. Phase TT Final Assembly Pass 2 


ae i a an ರಾನ್‌ Teo S RI ತಾಣ ಹುಸಿ ಸವ ಯಾತ ee kx ಪಹಭ ರಾತಾ ಹೂ ಖಾ 1 

[Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
bo m" -m 1 
[Scans text | IL0002 | None | 
pom aan nnn nnn nnn }----~----------}----------------------------------- 1 
|Generates text for RR instructions |IL0012 | GENTXT | 
bohm 
| Generates Text for RX non-branch  ]|IL0013 | EOBRTN, GENTXT, OFFSET | 
[instructions LM, STM, and SI Types | | | 
C — eS A ——— — —— ES ————— ED ua» c ಜರಿದು D — MÀ —— ee — ಘಾ ಆನಾ ಆವಾ oe om ee ವಧಾ n ನಾ ಚಾಚಾನ eee ee ee qom A AP oe ee ee ನಾ D ಇವಾ, ಇದಾರ, ಇಮಾ ———————————————-—--——--—----—--------4 
|Generates text for shift | IL0027 | GENTXT | 
linstructions | | | 
———————————————— mae Kec ASL i ಎಂ NEIN 4 
|Generates Text for SS instructions |IL0014 | EOBRTN, GENTXT, OFFSET | 
———— — — M —] bee 
{Sets up trace information and |IL0019 | GENTXT | 
[numbers compiler labels | | | 
NS SN nnn ರಾದ nnn nnn 
|Generates text for branch and load |IL0020 | FINEQ1, GENTXT, OFFSET | 


laddress instructions | | | 


ohh 


{Initializes location counter at | IL0010 | PUNCHT | 
[start of procedure | | | 
bo — E---—---7-------- ha 4 
| Resumes containing procedure at end|IL0011 | PUNCHT | 
{lof procedure | | | 
a eal 
|Moves Text into card image | GENTXT | PUNCHT | 
bone nap nan nnn nnn nnn nnn ಸತಿ 
|Punches cards ensuring that RLD | PUNCHT | CARDOU | 


|cards foliow related TXT card | | | 


[---—-——-—-—————————— nnn finn nn nnn pn ne nn nn ren nnn ad 
lGenerates text for compiler | INCLUD | GENTXT | 
{subroutine | | | 


LLLI ee we ee re we re wen ee ew a en s he ಅಣ me ee am cre ams o c ಷು eh, we ee am m cae meme md 
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Table TT1. Phase TT Routine/Subroutine Directory 
ಗಾ a eg ge MDC ನಾನಾ CCCII CM C MIDI Sea EN ವಾವ ಸಾನ್‌ ನಾನ ee 
[ARoutine/Subroutine| | 
— — ——— ——M— — P ——— s 


|Directs card image to load file or punch file. 


| CARDOU 
ಚ್‌ 
aren 
ನೆ 
[110002 
[110003 
[120010 
ಟಾ 
[170012 


| 
| 110013 
| 


[210014 
[210015 
ತತ್ತ 
| 220017 
೩0039 
| ೩0020 
3೩0022 
10027 


O Hh 


FFSET 


| PUNCET 


Llll-c---————-—————L--l----—-———--—-————————————————————————————————————————————————————————- 


(TU) 


Function 


[Chains to next input text block. 


[Locates label number table entries. 


[Moves text into card image. 


| 
|Scans text. 


[Entry point to scan from initialization routines. 


| Initializes location counter at start of procedure. 


|Resumes containing procedure at end of procedure. 


|Generates text for RR instructions. 


| Generates text for RX non-branch branch instructions, LM, STM, and 


|SI type. 


|Generates text for SS instructions. 


| Processes the start of prologues. 


|Processes the end of prologues. 


| End-of-text routine. 


[Sets up trace information and numbers compiler labels. 


|Generates text for branch and load address instructions. 


| 
|End-of-block routine. 


{Generates text for shift instructions. 


|Determines offset and relocation pointer from given dictionary 
|réference. 


| Punches cards ensuring tnat RLD cards follow related TXT card. 
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Table UA. Phase UA Final Assembly Initial Values, Pass 1 
Re re er a eee ee Tog ಭಜ ಫ್‌ Mn er ag n a ತಾಕಾ ತಾರಾ ಚಾತ್ರ ಅಧಾ ಕಾಕ ಕಾಹ 1 
| |Main Processing| ; | 
| Statement or Operation Type | Routine | Subroutines Used | 
— ————— nanan fn a ರುದರದ ರುದರದ nnn nn nn rn nnn nnn nn nnn nnn nanan 
{Scans STATIC chain to beginning of |UA001 [UA200, UA220, UA230 | 
|external section | | | 
ನಾವ ನವ ಮದದ ಲಮ aerate ee eee ಖಜಾನ ನಭಭ ನ to 
|Initializes scalar variables [UA200 | TXTMOV | 
be) 
|initializes BCD for label |UA220 | RLDMOV, TXTMOV | 
em 
[initializes DED for temporary [UA230 | TXTMOV | 


rn nn fe ಕಾರಾ ಕಾಪಾ ವಾ ಕಾವಾ ಕಾರಾ ಕಕ್ಷಾ ಕಾಪಾ ರಾ ಪಾವಾ ರಾ ಕಾಕಾ ರಾವಾ ಕಾವಾ ಕಾರಾ ರಾರಾ ಕಾ + 


|Initializes address constants. [UA010 | 0೩401, 0ಗಿ803, UVA4O4, UAUOS, UAKOE | 


1 4 ł 

|Initializes symbol table entries {UA080 |RLDMOV, TXTMOV | 
C A — aX— ಬಾಜಾ D a ae A Se awe Vua ಆಧಾ ಜಾವಾ ಜಾವಾ GD QUED whe Ee ae ವನಿ. ow quas ee ee CU Gm ಬಾ ee ae, ಪ್ಯಾ uma amm enm (USD Pw cum ee oe en (RD ee ee en ಇವನಾ oe uen CHA GUUD ವಾ apum UD VERD, oe ee ee ew ee GEN 4 
|Initializes address slots for | UA403 | RLDMOV, TXTMOV | 
| external variables | | | 
mf 4 
|Initializes address slots for | 11.801 | RLDMOV, TXTMOV | 
| functions and programmer-defined | | | 
[ON-condition names | | | 
JE E 
{Initializes address slots for label|UA&504 | RLDMOV, TXTMOV | 
jconstants | | | 
we nn nf — —— mm 
|Initializes address slots for entry|UA405 | RLDMOV, TXTMOV | 
| labels | | | 
bol 
‘Initializes file attribute entries |UA406 |RLDMOV, TXTMOV | 
land files "| | | 


el 
|initializes constants pool | UA014 | RLDMOV, TXTMOV | 
RY ಪ OS ARN mie ಅ e ಪ ಸ aa, SY ಚ್ಯಾ ಜಾ ee ಶೂ MERD ಚಾ ಶಭ ಫೂ EE fans ಖಾ ಚಾ GET, ಅ ಜಣ ಅಚ iD Mamas (SREY NS cmd dump ಭಾನ: GE ಹಸಯ ant AED GANA ಇರಾ CAD ee CE ಇದ್‌: | MED ಪಾಷ ee Gam) ಪಾಶಾ ಪಾಶ ee ಪಾ ಚಾಣ ಚಾ ಅರಾ ಪಾನ cue umi ಅಪಾ cmm ಭತ ಅಪ ಚಾ ಅಣ ಚಚ med 


{Initializes dope vector skeletons |UA021 | TXTMOV | 


1 + + 
|linitializes argument lists [UA025 | RLDMOV, TXTMOV | 


LLL ee ee ee ರಾರ ತಾ ಹ ee Le es J 
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Table UA1. 


Phase UA Routine/Subroutine Directory 


|Routine/Subroutine|] ^. ದ ಂಂಯ Function 1 
ಜಾ (UE) . Moves card images to punch and/or, doad (dde, —  — — —— ^  ] 
ಜ್‌ (UB) ಕ RLD entries to card buffer. 
{TXTMOV (UB) ees TXT entries to card buffer | 
ocd ees point from compiler control. | 
anodi pu STATIC chain to start of external section, to initialize 
| [scalar variables. | 
[080015 | ೫೮೬೭೦೫7 point for branches taken in first scan. | 
[0030 [Initializes address constants. 
Pee ಹ point for branches taken in second scan. | 
T (0C) |Initializes constents pool. 
oA |Initializes dope vector skeletons. 
| 140215 (UC) |Produces text for dope vector skeleton. | 
ere JInitializes argument lists. 
re EIE point for branches taken in last scan. 
€ (UC) |Initializes symbol table entries. 
uated (UC) |lInitializes one-word CSECT 'IHEMAIN'. | 
No | Exit from UA to compiler control and UD. | 
T eka scalar variables. | 
S (uc) | Initializes BCD for label. | 
ere (UC) on to label routines for label variable BCDs. | 
ಜು (UC) |initializes DED and FED for temporary. | 
[UA401 {Initializes address slots for functions and programmer-defined l 
| | ON-condition names. | 
[uasa {Initializes address slots for external variables. 
1೬408 ಚಾ address slots for label constants. | 
oe {Initializes address slots for entry labels. 
ae ಟು DECLARE control blocks for files and file attributes | 
| jentries. | 
[0೩407 naked text for file attributes entry. | 
ಜೆ (uc) | Initializes array variables. | 
Nee (UC) TL arrays of varying strings. 
300080 (uc) {Initializes bit arrays. | 
|rro (UC) | packing of bit strings in structures or arrays. | 
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Table UD. Phase UD Final Assembly Pseudo-Code Static DSA's 


pU—————————— Mm — nan en UMP wae aue ಆಖ Y——————ÀÀÀÁ 1d x — — ಖಾ A M — Oo er en oe RÀ es ee  —— M we ee ಜಾ 


1 
| {Main Processing| | 
| Statement or Operation Type | Routine l Subroutines Used | 
bh 
[Scans STATIC DSA chain 141 | AUTO | 

aa nana ——— —— — — af nnn nnn ————— enn nn nn nnn nnn nf 
[Scans STATIC DSA's AUTOMATIC chain |AUTO | DAT, LAB, STRUC | 
}~----~---—-~---------- ——— | aE hee 1 
{Initializes dope vectors for data  |DATLAB | TXTMOV(UB) ,RLDMOV (UB) | 
{items and label variables | | | 
| (unstructured) | | | 
[Initializes dope vectors for | STRUC | TXTMOV (UB) , TLDMOV (UB) | 
| structures | | | 
| SEN Lll c—————— ಆಹಾ —— A ಆ ಅಹಾ —ÀÓ À —À A ಆವಾ amÀ—! € ಹಾ ಅಹಾ e ಅಣ Um a» us "M ಣಾ o o ao œe J 


Table UD1. Phase UD Routine/Subroutine Directory 


| Routine/Subroutine | Function | 
ರಾರಾ ರರ ನ್‌್‌ 
oro pare STATIC DSAs AUTOMATIC chain. | 
| DATLAB [Initializes dope vectors for data items and labels. | 
| STRUC |initializes structure dope vectors. 
oon Me point 
| END [Releases control. | 
ಕಟ ee er ee er nh ee aw ee ee ee en ree ce nen een een ne eee 
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Table UE. Phase UE Final Assembly Initial Values, Pass 2 


pete a PIT ee ನವಾಲ್‌ ಪುಜಾರ ee a ap ಪಟ ಇತ 1 
[Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 


4 
[Scans STATIC chain to beginning of |UA001 [UA200, UA220, UA230 | 
[external section | | | 


mmm 


[Initializes scalar variables | UA200 | TXTMOV (UB) | 
p---———-------—------—------—--------Pj---—-———---——--2-L-------—--—--—-—--------———-——————---——-- 
[Scans STATIC chain to initialize [UA003 | UA300, UA320, UA340, UA360, UA365 | 
linternal dope vectors | | | 
—— Á———— f ———— 2-5 == 2-5-2 === === == === 
|Initializes dope vectors for |UA300 | RLDMOV (UB), TXTMOV (UR) | 


[internal strings | | | 


hed 


|Initializes dope vectors for |UA320 | RLDMOV (UB), TXTMOV (UR) | 
[internal data arrays l | | 
Po oe ee ಗಾವ ನವನ reg SRE LN ಎರಾ ಮಾಹಿತ್‌ 1 
|Initializes dope vectors for arrays|UA340 |TXTMOV (UB), UCUPDT (UC) | 
lof varying strings | | | 
mm 
{Initializes dope vectors for [UA360 |RLDMOV (UB), TXTMOV (UB) | 


jinternal label arrays | | | 


+ + 
[Initializes dope vectors for [UA365 |UA300, UA320, UA360 | 
Jinternal structures | | | 


hh 


|Initializes arrays | JA030 | RLDMOV (UB), TXTMOV (UB), | 
I | {UCINIT (UC) | 
--------————-—----------——-—---—-——--4------—-----———--L-----------———--—-—----------------- 
[|Initializes structures [UAOA0 | TXTMOV (UB), UA200, 000800 (UC), | 
| | |TIDY (UC) | 
bed 
|Initializes one word CSECT [UA100 |OUTPUT, RLDMOV, TXTMOV (all in UB) | 
| 'IHEMAIN' | | | 
-------------—-~--+-~--~----+- ೨ ಸ ಗ ಸ ೨೨೨೨೨ +--+ = + 
{Initializes CSECT for STATIC 1೮1೬1005 {OUTPUT (UB), UA030, UA200, UA300, | 
jexternal variables | |UA320, UA360, UA365, UA4O1, UA4O6 | 
}------------------------- —-- ------} ---- $= OOA 
[Makes up END card and terminates [UA120 |OUTPUT (UB) | 
| phase : i | 
|Initializes array variables JUCINIT (UC) | TXTMOV (UB), 000080 (UC), TIDY (UC) | 


Lio eh Ld 
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Table UE1. Phase UE Routine/Subroutine Directory 


|Routine/subrowine| = Function 1 
ಜಾ = ae ei ee 
ean |Iinitializes EVENT variables. 
Paus |lInitilizes TASK variables. | 
arr ಜ್‌ point from UA and compiler control. l 
AR mee STATIC chain to start of external section, to initialize 
| {scalar variables. | 
[೩0025 — point for branches taken in first scan. | 
| ೩003 rer STATIC chain to initialize all dope vectors for internal | 
| | variables. | 
TENES state of scan for arrays and structures. | 
usas | arrays. 
fore age Seeds RLD entry for label array virtual origin. 
ere ಆ point for branches taken in array scan. | 
rong [ire ree RLD entry for data array virtual origin. | 
NET ಹಿ structures. i 
aren (UC) ತ್ತ IHEMAIN CSECT. | 
E — point for branches taken in external scan. 
freer wees up END card and terminates phase. | 
ene 1443 scalar variables. | 
| 207 ee label variables. | 
eer ES dope vectors for internal strings. | 
[350 ie dope vectors for internal data arrays. | 
54540 Ts dope vectors for arrays of varying strings. | 
TA rideo. dope vectors for internal label arrays. | 
| 0A365 aise dope vectors for internal structures. | 
| UA4O1 400286 address slots for functions and programmer-defined | 
| |ON-condition names. l 
[| es DECLARE control blocks for files and file attributes | 
| | entries | 
[0೩1005 ಸಾಜ CSECTs for STATIC external variables. | 
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Table UF. Phase UF Final Assembly Object Listing 


|Main Processing| | 


| Statement or Operation Type | Routine | Subroutines Used | 
ES eer Or ಲ್‌ es ME ee [ 
ism cuius C 0 0 LONE COT OIN UE Ir co ಭಾನ 
ಚ ಐ ranca ne ರ ರೂ inodo "C Cinna ERN. Pe ಟ್‌ 
| | | SECOND | 
RR CEET E ^ 7 777 ao ಅಕ್‌ ೬ ಜಟ PENTOU. CoA 3 
Inu 22 77^ ig ERS 
eec 2 dub Oe [110027 ^ ^ ESN ERNE, SEE 


aaa aa. a 


{Lists SI instructions | IL0028 | CHARVF, PRINIT, PRNTOU, PRNTVF | 
| | | SECOND, SSRTN | 


alum OOF A SS SS AS SS SS GU) AS CUP Gu UD SD RD ಊಂ alio na quam SND ವಟು SEND CUP clum ERO ವ SAND UD cpm GENS ಇದ um amm enu» ಇದಾ ctum ES umm cum ಹಾಸನ GD MED CD OED qup ವಾ ದನನ GES GD ಆನಾ SD uu» ಆನು ಆನಾ ಆನಾ ಆನಾ cus WS ಅವರಾ ಇವಾ ಆರಾ ee ವಾ 


{Lists branch and load address | IL0020 | 2೫0013, NAMEIT, NAMEQU, PRINIT, | 
[instructions | | RRRTN | 
hl 
[Lists labels | 110019 | NAMEVF, NEXTEL, NEXTSL, | 
| | |PRNTLC, PRNTOU, PRNTVF, STATMN | 
| 
| Lists procedure names | IL0010 | NAMEVF, NEXTEL, PRNTOU, STATMN | 
bon 
{Lists ends of procedures {110011 | NAMEVF, NEXTEL, PRNTOU | 
bed 
| Scans ahead for literal offsets; | SECOND | EOBRTN | 


linserts second instruction byte | I I 
{into print image | | | 


hd 
[Generates listing of text for base |SSRTN, BXRTN |ABSOFF, ADDEND, NAMEIT, NAMEQU, | 
loffset pair | | PRNTVF | 
bod 
| Names generated label number | NAMEQU |DECINT, FINEQ1 | 
hl 
[Inserts location counter value, and|PRINIT | PRNTL | 


{hexadecimal and mnemonic operation | | | 
{codes in print line | | | 


+ + 
{Moves variable length item into | PRNTVF | PRNTOU | 
[variable field part of print line | | | 


wo + ef ne ಪಾ ಕಾಪು ದಾತಾ + + | 





[Lists statement numbers | STATMN | STATNO | 
bh 
| Determines name and offset from | NAMEIT | 0೫೦2೫೫, HEXINT | 
[dictionary reference | | l 
ಎನ ವಿ ಹಿಮವು Slee T OE j------——---------------------------- 
[Generate listing of compiler [1L10017 | PRNTLC, PRNTVF,PRNTOU | 
| subroutine | | | 
LÀ EM €—€——————— P ಚಾ ವೆ m e €————————KÁ—— ಖಃ 4 
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passe UF1. Phase UF aider id edis Directory 


|ABSOFF |Appends literal offsets to operands in variabie part of print line. 
| | 
| ADDEND |Appends signed literal offsets to operands. 
| 
| BXRTN/SSRTN |Generate listing of text for base offset pair. 


ants (UG) 
oe (UG) 
P 
ಚರಗ 
ಟಕ (UG) 
UM 
[2೩6062 
228013 
ಗ (UG) 
errr (UG) 
IT 
[710013 
D00 
ಕೂಟ 
| 250016 
[ 210017 (UI) 
೪008 
ee (UG) 
5 
re 
| 2೩0027 
11.0028 
10052 
1003 (UG) 
[242005 
RMB 
een 
eee (UG) 


[ 
| NEXTEL (UG) 
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|Places one character in variable field of print line 
| 


{Converts binary to externally coded decimal. 


| 
[Chains to next input block. 


| 
| Locates label number table entries. 


{Converts binary to externally coded hexadecimal. 


{Entry point from compiler control. 


[Scans text. 


|Entry to scan from initialization routines. 


|Lists procedure names. 
Lists ends of procedures. 
P 


[Lists RR instructions. 


|Lists RX non-branch instructions. 


{Lists SS instructions. 


|Processes the start of prologues. 


|Processes the end of prologues. 


|End-of-text routine, and compiler subroutine listing. 


|Processes compiler generated label numbers. 
| 
|Lists labels. 


|Lists branch and load address instructions. 


|Lists shift instructions. 


| 
|Lists LM and ST. 


|Lists SI instructions. 


| Processes SS decimal instructions. 


| 
| Prints "*PROCEDURE" followed by entry names and statement number. 


{Identifies operands. 
|Detexrmin2s name and offset from dictionary entry. 
| ; 

| Names generated label number. 


|Places a variable name in the print line. 


| 
Scans dictionary for multiple entry labels. 


image. 


Table UF1. Phase UF Koutine/Subroutine Directory (cont'd) 


[Routine/Subroutine] SS” RNC SSS S i 
und (Gay) © penne aa oa er multiple nitent dde ——5 50 70 
00 (UH) I return point in naming routine. | 
ಸಷ (UG) © ಸಮ location counter value, hexadecimal, and mnemonic op codes. | 
ಜಟ (00) |Converts location ಮ to hexadecimal; places it in print image. | 
AION (UG) ಕಿಟ a line. | 
RIVE (UG) sve variable length item into variable field part of print line. | 
— ಯ RR format listing of text. | | 
ಜಿ | Scans ahead for literal offsets; inserts second instruction byte | 
| jinto print image. | 
T (0G) |Lists statement numbers. 
foe (UG) {Converts statement number to decimal. | 


DEMNM me ce el ce ene ce a ee ce cre a ce ne ce ce ae ee en ಲಾ ಕಾಲ ಸಾಲಾ ee ee ಮಿ ee p ಹಾಹಾ ನಾಕಾ M aM 
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Table XA. Phase XA Error Message Editor 


RS cer ee ದನಾ e ce IIR ಜ್ಯ eee ET ನಾನಾನಾ See rer aS er ಕಾಕಕ ಕ್‌ 1 
i [Main Processing| | 
| Statement or Operation Type | Routine | Subroutines Used | 
-———————-—-———-———————————-—--——------—--—L------------—---L-----------------------2-2----------- 1 
|Determines whether error messages  |XA | None | 
[are to be printed | | | 
ao ~~ - == === === == = —  — — — — ದುದಾ Dad 
[Scans error message text skeletons |XA8 [XA50, XA70, XA90, XA110, ZUPL | 
[and prints them out | | | 
Lm a ಸಪಪ ಎಸ ದಿ ಇಡಾ ಸ ಪೂ ಸಸ ತೆ 


Table XA1. Phase XA Routine/Subroutine directory 


(omm € MÀ ಮಾನಾ ಎದ್‌ ವರ ವಾ PS ಇಷಾ: SP TS ಆಲಾ ಹಾಹಾ, SS ಆ ಇಷಾ ರಾರ ಅ — ÁÓ——————— ——P——MÓ— €— ee ee ಜಾ ನಾನಾ ಮಾ ಅ ee 


|moves it to print buffer. 


XA90 (XB) |Converts binary numeric value to character representation and moves 
jit to print buffer. 


| 
XA110 (XB) |Moves identifier from dictionary entry to the print area. 


| Routine/Subroutine| Function | 
fhm 
| XA |Determines whether error messages are to be printed. | 
| | 

| XAO |Sets severity code. | 
| | 

{XA01 {Establishes which message types to suppress. | 
| | 

| XA1 [Counts number of error chains to be processed. | 
| 

| XA2 |Puts out messages if there are no diagnostics. | 
| 

| XAL {Prints out "COMPILER DIAGNOSTIC MESSAGES". | 
| 

| XA7 |First scan of message chains. | 
| | 

| XA8 |Scans error message text skeletons and prints them. | 
l | | 
|XA9 (XB) [Scans to head of next non-empty chain. | 
| 

| XA12A | 553೮೦೬೨ and prints header for messages of given severity. | 
| | 

|[XA30 (XB) [Gets next entry in message chain. | 
| | | 
|XA32 (XB) | Builds up first part of message in buffer. | 
| 

|XA35 (XB) | Accesses message skeleton. | 
| | | 

[XAuO (XB) |Puts out completed message. | 
| | 

|XA50 (XB) |Moves message text to print buffer. | 
| | 

[XA70 (XB) {Converts binary statement number to character representation, and | 
| 

| 

| 

| 

| 

| 

| 

| 


| ZUPL {Prints a line on SYSPRINT data set. 


med 
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This appendix relates the logical 
phases, physical phases, and modules 


contained within the physical phases. 


The 


compiler name is IEMAA. 


PHYSICAL 
PHASE MODULES 


Compiler Control 
AA 


AB 


AC 


ಣ್ಯ k 


AG 


z 


Z 


AT 


BX 


F1 


DESCRIPTION 


Controls running of 
compiler 


Performs detailed 
initialization 


Writes records on 
intermediate file 
SYSUT3 


Performs inter-phase 


dumping as specified in 


the DUMP option 
End of read-in phase 


Controls system 
generation compiler 
options 


Closes SYSUT3 for 
output, reopens for 
input 


Format annotated 
dictionary dump 


Format annotated text 
dump 


Closing phase of 
compiler 


Controls extended 
dictionary compilation 


Phase marking 


Controls normal 
dictionary compilation 


Carries out extra 
debugging during 
compiler runs 


48-character set 
preprocessor 


Checks whether Syntax 
Check should terminate 
compilation 


BC 


BG 


BM 


BW 
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JZ 


ವ ದಾ ದ ಇಷ್ಟಾ CERAM 


AS 


AV 


BC, BE, BF 


BG, BL, BJ 


BM, BN 


BO, BV 





Builds second half 
phase directory 


Resident phase for 


compile-time processor 


Initialization phase 


for compile-time 


processor 


Initial scan and 


translation phase for 


compile-time processor 


Final scan and 
replacement phase for 
compile-time processor 


Error message printout 
phase 


Contain the diagnostic 
messages 


Cleanup phase for 
compile-time processor 


Read-In Logical Phase 


CI 


CL 


CO 


CS 


cV 


CA 


cc 


CE 
CG,CI 
CK 
CL,CM 
CN 
CO,CP 
CR 
CS,CT 


CV,CW 


Read-In phase common 
routines 


Read-In phase common 


routines 

Keyword tables 
Read-In first pass 
Keyword tables 
Read-In second pass 
Keyword tables 
Read-In third pass 
Keyword tables 
Read-In fourth pass 


Read-In fifth pass 


Dictionary Logical Phase 


ED 


EG 
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ED 


EF,EG 


Initialization, 
subroutine package for 
Declare Pass 2 


Initialization 
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PHYSICAL 
PHASE 


EI 


EL 


EP 


EW 


EY 


FA 


FE 


FI 


FK 


FO 


FQ 


FT 


FV 


FX 


MODULES 


EH, EI, EJ 


EK, EL, EM 


EP 


EV, EW: 


EX,EY,EZ 


FA, FB 


FE, FF 


FI 


FO, FP 


FQ 


FT,FU 


FV,FW 


FX,FY,FZ 


DESCRIPTION 


First pass over DECLARE 
Statements 


Second pass over 
DECLARE statements 


Constructs dictionary 
entries for PROCEDURE, 
ENTRY and CALL 
statements 


Constructs dictionary 
entries for LIKE 
attributes 


Constructs dictionary 
entries for ALLOCATE 
and for explicitly 
qualified based 
variables. 


Checks context of 
source text 


Changes BCD to 
dictionary references 


Checks validity of 
dictionary references 


Rearranges attributes 


Constructs dictionary 
entries for 
ON-conditions 


Checks validity of 
PICTURE chain for PL/I 
functions and the 
TRANSLATE and VERIFY 
functions 


Dictionary 
house-keeping 


Merges second file 
statements into text 


Processes identifiers 
for cross reference and 
attribute listing 


Pretranslator Logical Phase 


GA 


GB 


GK 
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GA 


GB,GC 


GK 


Constructs DECLARE and 
OPEN control blocks 


Modifies I/O statements 


Checks parameter 
matching 


GO 


GP 


GU 
HF 
HK 


HP 


GO 


GP,GQ,GR 


GU,GV 


HF, HG 


HK,HL 


HP 


Preprocessor for second 
check on parameters 


Second check on 
parameters 


Processes CHECK 
condition statements 


Processes structure 
assignments 


Processes array 
assignments 


Processes items defined 
using iSUBs 


Translator Logical Phase 


IA 


IG 


IK 


IL 


IM 


IT 


IX 


JD 


IA,IB,IC 


IG 


IK 


IL 


IQ 


IX 


JD 


Stacks operators and 


operands 


Processes array and 
Structure arguments and 
built-in functions 


First part of 
preprocessor for 
generic functions 


Second part of 
preprocessor for 
generic functions 


Processes generic 
functions 


Processes function 
triples 


POINTER and AREA 
checking 


Evaluates constant 
expressions 


Aggregates Logical Phase 


JI 


JI 
JK 


JP 


JI,JJ 


JI,JK,JL 
JK,JL,JM 


JP 


Structure 
pre-preprocessor 


Structure preprocessor 
Structure processor 


Checks DEFINED chains 


Optimization Logical Phase 


KA 


KC 


KA, KB 


KC,KC1 


Table handling and 
initialization 


DO temporaries 


PHYSICAL 
PHASE 


KE 
KG 
KJ 
KN 


KO 


KT 


KU 


MODULES 


KE, ೫೫೩ 
KG, KG1 
KJ 
KN 


KO, KP, KQ 


KT 


KU, KV 


DESCRIPTION 

DO MAP build 

DO examine 

SUBS TABLE build 
Initialization 


Subscript optimization 
1 and 2 


SCAN utility 


Merge patches and loop 
control 


Pseudo-Code Logical Phase 


LB 


LD 


LR 


LS 


LV 


LW 


LX 


MG 


MI 


LB,LC 


LD 


LG,LH 


LS,LT,LU 


LV 


LW 


LX, LY 


MB, MC 


MG, MH 


MI,MJ 


Generates triples to 
initialize AUTOMATIC 
and CONTROLLED scalar 
variables 


Constructs dictionary 
entries for initialized 
STATIC scalar variables 
and arrays 


Expands DO loops 


Fixed decimal 
expression optimization 
and initialization for 
phase LS 


Converts expression 
triples to pseudo-code 


Provides string 
handling facilities 


Initialization for 
phase LX 


Converts string triples 
to pseudo-code 


Constructs pseudo-code 
for functions 


Constructs pseudo-code 
for pseudo-variables 


Scans for ADDR and 
STRING functions and 
generates code for each 


Constructs pseudo-code 
for in-line functions 


Constructs pseudo-code 
for in-line functions 


Constructs pseudo-code 
for in-line functions 


MK 


ML 


MP 


NA 


NG 


NJ 


NM 


NT 


NU 


OB 


OD 


OE 


OM 


OP 


೦5 


MK 


ML 


MM, MN, MO 


MP 


MS, MT 


NA 


NG 


NJ, NK 


NM, NN 


NT 


NU, NV 


OB, OC 


OD,OE,OF 


OG, OH, OL, 
OI 


OM, ON, OO 


OP, OQ 


OS,OT,OU 


Constructs pseudo-code 
for in-line functions 


Processes generic entry 
names 


Processes CALL and 
function procedure 
invocations 


Reorders BUY and SELL 
Statements 


Constructs pseudo-code 
for subscripts 


Generates pseudo-code 
for branches, RETURN 
triples, etc. 


Generates Library 
calling sequences for 
DELAY and DISPLAY 
statements 


Generates Library 
calling sequences for 
executable 
RECORD-oriented 
input/output statements 


Generates Library 
calling sequences for 
executable 
STREAM-oriented 
input/output statements 


Pre-processor for NU 


Generates Library 
calling sequences for 
data/format lists 


Processes compiler 
functions and 
pseudo-variables 


Pseudo-code assignment 


Constructs Pseudo-code 
for assignments 


Generates library 
calling sequences 


Generates pseudo-code 
for data type 
conversions in-line 


Generates pseudo-code 
for further in-line 
conversions 


Converts constants to 
required internal form 
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PHYSICAL 


PHASE MODULES 


DESCRIPTION 


Storage Allocation Logical Phase 


PA PA 

PD PD 

PH PH 

PL PL, PM 

| PP PP,PO 
PT PT,PU,PV 
QF QF, QG QH 
QJ QJ,QK,OL 
೧೮ Qu 

QX QX 


Puts eligible DSA's 
into STATIC 


First STATIC storage 
allocation phase 


Second STATIC storage 
allocation phase 


Constructs symbol 


tables and DEDs 
Sorts AUTOMATIC chain 


Allocates AUTOMATIC 
storage 


Constructs prologues 


Allocates DYNAMIC 
storage 


Aligns misaligned 
operands and processes 
halfword binary 
operands 


Lists lengths of 
aggregates 


Register Allocation Logical Phase 


RA RA, RB, RC 
RD RD 
RF RF, RG, RH 
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Processes addressing 
mechanisms 


Flags branches for 
optimization 


Allocates physical 
registers 


Final Assembly Logical Phase 


TF 


TJ 


TO 


TT 


UA 


UD 


UE 


UF 


UI 


XA 


TF 


TJ, TK 


TO,TP,TQ 


TT, TU 


UA, UB, UC 


UD, UB, UC 


UE, UB, UC 


UF, UG UH 


UI, UG, UH 


` Error Editor 


XA 


XA, XB 


XA, XC 


XF 


XG, YY 


Assembly first pass 


Optimization 


Produces ESD cards 
Assembly second pass 


Final assembly initial 
values, first pass 


Generates RLD and TXT 
cards to set up dope 
vectors for STATIC DSAs 


Final assembly initial 
values, second pass 


Produces listings 


Completes final 
assembly listings 


Determines whether 
there are diagnostic 
messages to be printed 


Constructs the third 
phase list 


Controls the printing 
of messages 


Message address blocks 


Contain the diagnostic 
messages 





OM ON ೦೦ 
೦೯೦೦. 
೦5 OT OU 
„PA PO 

| PH 
PL PM 
PO PP 
PT PU PV 
„QF OG OH 
QJ) QK OL 
Qu 





“lee ceo ci 
CK CL CM 
CN CO CP 
LCR 

CT 


ee 


5. 
V. Cw 





N'A 





,RB RC 


RG. RH 





% REPRESENTS COMPILER DEBUGGING ROUTINES , AD, AH, AI, AJ OR AT, 
WHICH MAY BE IN PERMANENT RESIDENCE IF REQUESTED 


eFigure 7. PL/I Phase-in-Storage Map 


In this phase-in-storage map, modules on This map represents the 'worst' case, 
the same horizontal line may be in storage does not always reflect the order of 
together. Modules on the same vertical loading. 
line can never be in storage together. 


and 
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APPENDIX B: RESIDENT TABLES 


There are three resident tables: the 
dictionary, the keyword tables, and the 
phase directory. The dictionary is 
resident through part of the compilation; 
the formats of the dictionary entries are 
fully described in Appendix C. The keyword 
tables are resident during the read-in 
logical phase, and the phase directory 
throughout the compilation. 


ORGANIZATION OF KEYWORD TABLES 


The read-in phase is divided into five 
passes containing the modules shown in 
Figure 8. 


Modules CA and CC contain routines which 
are common to all five passes. Successive 
blocks of routines overlay the areas used 
in the first pass by modules CE, CG, and 
CI. The keyword tables are held in 
separate modules (CE, CK, CN, and CR) which 
must each be less than 1,024 bytes (1K) 


long. In this way it is possible to hold 
in storage only those keywords which are 
required for any one pass. The keyword 
tables are constructed in the following 
manner. 


For ease of searching and modifying a 
keyword table, it is organized into two 
levels and by keyword length, as shown in 
Figure 9. 


The KEYWD routine is called by one of 
the statement scanning routines, and is 
supplied with a parameter which enables it 
to decide which set of keywords to look at 
(e.g., statement identifier, ON condition, 
miscellaneous). It does this by using the 
parameter to extract the required relative 
address (R(A),etc.) from the first level 
Girectory. The second level directory 
provides the KEYWD routine with the means 
of reaching a table containing keywords of 
correct length; the KEYWD routine calls the 
KEYID routine, which scans the next 
Significant item in the source text to 
obtain the length used in this look-up. 


4 
r7——-——--1 | 
| | | 
| CA | | 
| | | | 
Le J > Common Routines 
I 
f7—————— 1 | 
| cc | | 
Cassa 4 | 
J 
SS usine querat emen en di ide ipd ques ameet esten ಚಪ ಪಘಾಣಾ emque uni um Gd am iui CE minm Seem prie quema cum n cm nimimm e 
| | | | 
sca ae tae 1 | r-------- |] r-—----- ~ | r----—-- | r—------1 
| CE | | (| CK bok 4 CN | | | CR | | | CR | 
ಓವಿ ಸಾಸು 4 | t---—---1 | te- | t-------1 | t------- J 
| | | 
cess = 1 gemere —1 p" 1 pem 1 gone 1 
| | | | | | | | | | | | | | 
| CG | | | CL i | (| CO | | (| CS | | |! CV [ 
| | | | | | (| | | (| | | | | 
t-------1 | l----—---- n | t--—---- 3 | t------- J | t-—------14 
| | | | 
pcc 1 | r---——---— | r--------—1 | r----—--- 1 | === 4 
| | | | | | 1 | | [| | | | | 
| CI i | | CM | | | cP | | I cr | | | CW | 
| | | | | d | | | | | | 1 | 
SAE: J [| t--—---- 1 | ಚ್‌ 3 | t------- J 
| | | | 
Pass 1 | Pass 2 | Pass 3 | Pass 8 | Pass 5 
Figure 8. Organization of Read-In Phase 
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ಹಾವ. 
p—————-----— -—1 R(A) | 
| -----—j| First Level 
| r-4 R(B) | Directory 
| | }----—4 
l | | ೫೦) I-A 
| | enn d 
| | | | | 
| | | | | 
| | | 
| | | 
| e-a | r-a | ರ 1 
aj | Bt>| | c&>| | Second 
E--—- — e o 1 Level 
| | | | | | Direc- 
bd OO f----—-{ tory 
| | | | | | 
4 
| | I | 
E---—-—1 | | 
| | 
ļ----—] 
| | 
| | 
Figure 9. Organization of Keyword Table 


Format of First Level Directory 


FSTLVL DC AL2(STATID - FSTLVL) 


DC AL2(ONID - FSTLVL) 


Format of Second Level Directory 


The second level tables contain relative 
addresses, which enable the KEYWD routine 
to reference a third level table containing 
keywords of the correct length. If one of 
these entries should contain zero, then 
KEYWD will interpret this as meaning that 
no keywords of this length exist in this 
table. 


STATID DC FL2'm' where m is smallest 
length in table 


DC FL2'n' where n is largest 
length in table 


DC AL2(STLm-STATID) 


DC AL2(STLn-STATID) where the 
5 ls beginning STL are 
the symbolic addresses of 
the corresponding keyword 
tables 


Format of Third Level Tables 


The third level tables have a prefix byte 
containing the number of entries in this 
particular table followed by keyword 
entries. These consist of the keyword in 
internal code plus the replacement 
character (keywords recognised as such are 
replaced by a single code byte). 


STLm DC FLi'x' where x is number of 
keywords in this table 


DC X'112315' keyword in internal 
code 


DC X'55' replacement in internal 
code 


DC X'393839' 


DC X'5A' 


Some keywords are not represented by one 
word (e.g., GO TO, BY NAME) and clearly, 
the mechanism must be modified to cope with 
the second word. This modification is 
achieved by placing a 1-bit into the first 
bit of the first level by using the OR 
logical operation. The presence or absence 
of this bit is tested by the KEYWD routine 
before the suspected keyword is compared. 
If the bit is absent, the pass through the 
routine is quick, as there is no 
possibility of an extra level search. If 
the bit is present, the keyword must be 
compared after the additional bit has been 
removed by the AND logical operation. If 
the comparison is equal, the two bytes 
following the replacement character are 
used as a relative address to reach the 
next level table. 


Format of Entry Requiring Additional 
Comparisons 


DC X'9726' GO + X'1000* 
DC X'50*' 


DC AL2(N XTLVL-*) Relative address 
of next level table 


The format of these extra level tables 
is similar to that for the third level. In 
this way, it is possible for national 
language keywords to replace single words 
by two or more words, if so desired. 
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PHASE DIRECTORY 


Because of the number of phases in the 
compiler, the phase directory is split into 
halves. The first half is constructed 
during the initialization of the compiler; 
also a list of names of the phases in the 
second half is kept in Phase AA. This list 
is used to pass status indications (i.e., 
whether phases are wanted or not wanted) 
from the first half to the second half. 
Phase JZ uses the list to construct a new 
directory for the second half. 


The phase directory is constructed by 
use of the BLDL macro and a build list. 
The format of the build list is fully 
described in the publication IBM System/360 
Operating System, Supervisor and Data 
Management Services. 


Each entry in the build list is 30 bytes 
long. On returning from the BLDL macro, 
two bytes of the name field and ten other 
bytes of each satisfied entry in the build 


list are used to construct a 12-byte phase 


directory entry in the compiler control 
routines. The build list is destroyed 
after the initialization process is 
complete. 


386 


The format of a phase directory entry is 
as follows: 


mper ಮಮಾ ವಾ ದನಾ cC emm semen 
|Byte Number | Description | 


ane ane ee evens ಆ ಅವಾ ano em ಆಹಾ md 


0-1 Phase name | 
Status byte 


Concatenation number and 
library identification 


| 
| | 
| | 
| | 
| | 
| | 
| | 
| | 
| TTR of first text record; | 
| where TT is the relative | 
| track number, and R is the | 
| block number on that track. | 
| After the phase is loaded, | 
| these bytes contain the | 
| absolute address of the | 
| begining of the phase. | 
| | 
| | 
| | 
| | 
| | 
4 


Total amount of storage 
required 


| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
I 
[ 
| 
| 
| 
| 
| 
| Length of first text record 
bau 


This appendix describes the formats of 


dictionary entries during the compilation 


of a source program. The appendix is 
organized in the following manner: 


1. Dictionary Entry Code Bytes 


2. Dictionary Entries for ENTRY Points 


3. Code Bytes for ENTRY Dictionary 
Entries 


4. Dictionary Entries for DATA, LABEL, 


and STRUCTURE Items 


5. Code Bytes for DATA, LABEL, and 
STRUCTURE Dictionary Entries 


6. Format of Variable Information 


7. Other Dictionary Entries 


8. Dimension table 


9. Dictionary Entries for Initial Values 


1. DICTIONARY ENTRY CODE BYTES 


APPENDIX C: INTERNAL FORMATS OF DICTIONARY ENTRIES 





First Half Byte 
Bit Bit 


Position Value Meaning 

0 0 entry has BCD 
1 entry has no BCD 

1* 0 entry is to be chained 
1 entry not to be chained 

2 0 not a member of structure 
1 member of structure 

3 0 not dimensioned 
1 dimensioned 


*This bit only applies to Phase FT which 
constructs the storage class chains by a 
sequential scan of the dictionary; later in 
the compiler, items with this bit on are 
added to the storage class chains. 


Second Half Byte 


In the second half byte, the following 
codes have the meanings shown, unless the 
first half byte is X'C': 


X'7* means label variable 

೫೫೦೫8 means task identifier 
X'D' means event variable 
X'E' means structure 

X'F' means data variable 


The second and third bytes of every 
dictionary entry contain the length, in 
bytes, of the entry. If the entry has BCD 
(i.e., the first bit of the entry is zero), 
this length count does not include the BCD; 
instead, the BCD, which follows the main 
body of the entry, is preceded by a single 
byte containing one less than the number of 
characters of BCD. 


The dictionary is used to communicate a 
complete description of every element of 
the source program, the compiled object 
program, and the compiler diagnostic 
messages between phases of the compiler; 
the text describes the operations to be 
carried out on the elements. 


Each type of element has a 


characteristic dictionary entry, which is 
identified by a code occupying the first 


byte of the entry. 


In general, each type 


of element has a different code byte, but 
in crder to permit rapid identification of 
dictionary entries, the code bytes have 
been allocated on the following basis: 


Appendix C: 


Using this general scheme, the code 
bytes allocated for dictionary entries 


appear in the following table. 


Code bytes 


in the table which have no corresponding 
description are not allocated. 


X'00* Statement label constant 
01 Procedure or entry label 
02 GENERIC entry label 
03 External entry label (entry type 4) 
04 Built-in function, e.g., DATE 


05 


06 
07 
08 
09 


Temporary variable and controlled 
allocation workspace 

Built-in GENERIC label, e.g., SIN 
Label variable 

File constant 
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0A 
0B 
oc 
00 
08 
OF 


10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
1A 
1B 
ic 
1D 
೩2 
1೩8 


20 
23 
22 


28 
25 
26 
27 
28 
29 
2A 
2B 
2c 


2E 
2F 


30 
31 


33 
34 
35 
36 
37 


38 
39 
3A 
3B 
30 


3D 


3E 
3F 


40 
41 
42 
43 
44 
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Task identifier 
Event variable 


Data variables (not dimensioned or a 
structure member) 


Dimensioned label variable 


Dimensioned task identifier 
Dimensioned event variable 


Dimensioned data variable 


Label variable in structure 


Task identifier in structure 
Event variable in structure 
Structure item 

Data variable in structure 


Dimensioned and structured label 
variable 


Dimensioned task identifier in 
structure 

Dimensioned event variable in 
structure 

Dimensioned structure item 
Dimensioned and structured data 
variable 


Formal parameter type 1 


45 
46 
47 
48 
49 
4A 
UB 
4c 
4D 
4E 
UF 


80 
81 


82 
83 
84 


86 
87 


88 
89 


8A 
8B 
80 
80 
88 
88 


90 
91 
92 
93 
94 
95 
96 
97 


98 


9A 
98 
90 


9D 


9E 
೨೫ 


AO 
A1 
A2 
A3 
AU 
A5 
A6 
೩7 
A8 
A9 


AC 


ON CONDITION entry 


ENTRY type 1 -- from a PROCEDURE 
Statement 

BEGIN statement entries -- entry 
type 1 

ENTRY statement -- entry type 1 
Entry type 5 

Entry type 3 

Entry type 2 

Entry type 6 

Label variable formal parameter or 
temporary 

Constant 

Fiie formal parameter or file 


temporary 
Task identifier formal parameter 
Event variable formal parameter 


Data variable formal parameter or 
temporary 


Invocation count dictionary entry 


Dimensioned variable formal parameter 
or temporary 
File attribute entry 


Dimensioned task identifier formal 
parameter 
Dimensioned event variable formal 
parameter 


Dimensioned data variable formal 
parameter or dimensioned temporary 


Structured label variable temporary 


Structured task identifier temporary 


BE 


BF 


co 
C2 
c3 


c5 
C6 


c8 
c9 


CB 
cc 


CD 


CF 


Structured event variable temporary 
Temporary or formal parameter 
structure 

Structured data variable temporary 


Dimensioned and structured label 
variable temporary 


Dimensioned and structured task 
identifier temporary 
Dimensioned and structured event 
variable temporary 

Dimensioned structure formal 
parameter or temporary 
Dimensioned and structured data 
variable temporary 


String dope vector for temporary 
DED2 entry 

Internal library functiun, e.g., 
conversion routines 

Compiler label 

Prefix ON list item 

Parameter lists 

Dope vector skeletons 

Symbol table entry or DED entry 
Error message, table entry, workspace 
requirement, STATIC DSA, etc. 

Record dope vector (RDV) entry 
Workspace requirement entry 

Select a member from a generic family 
AUTOMATIC chain delimiter or Dope 
Vector Descriptor (DVD) entry 

ON condition entry 

Label BCD entry 

End of information in dictionary 
block 


2. DICTIONARY ENTRIES FOR ENTRY POINTS 


Entry type 1 for PROCEDURE, BEGIN, and 
ENTRY statements 


The format of an entry for a PROCEDURE 
Statement is as follows: 


Byte Number Description 


1 Code byte ೫*801 
2-3 Length 
4 Level 


10-11 


12-13 


i 
14-15 | 
16-17 > 
18-19 | 


20-21 


22-23 


24-25 


26-28 


29-31 


32-34 


35-37 


38-80 


Count 


Dictionary reference to the 
entry type 1 of the 
containing block 


Dictionary reference of the 
dictionary entry for the 
first label that was 
attached to the PROCEDURE 
statement 


Dictionary reference to the 
entry type 1 of the next 
PROCEDURE or BEGIN statement 
in the source program 


The start of the chain of 
all AUTOMATIC variables 


Dictionary references to 
three dictionary entries 
indicating storage require- 
ments for workspace 


Dictionary reference of 
CHECK list set by phase FO. 


Phase QU re-uses this slot 
and sets it to the offset 
from register 9, at which 
the register allocator 
workspace is to start. 


Dictionary reference of 
NOCHECK list 


Dictionary reference of the 
first symbol table entry for 
this block 


Size of the DSA for this 
block, set in storage 
allocator phase 


Note: Phase MA moves, into 
bytes 27 and 28, the 
dictionary reference of a 
temporary describing a table 
to be built at execution 
time for the TRANSLATE or 
VERIFY function. 


Offset of the eight words in 
the DSA used for addressing 
the DSA 


Offset of the storage used 
for the parameter list 
necessary in an ALLOCATE- 
FREE statement 


Offset of the two-byte 
switch which is set on entry 
to a procedure and tested at 
a RETURN (expression) 


Offset of the four-byte slot 
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which will contain the 
address of the first 
approximation of the target 
field (the address of the 
implied parameter) 
41-42 Dictionary reference of the 
entry type 1 of the first 
ENTRY statement of the 
procedure. The entry type 1 
for PROCEDURE and ENTRY 
statements of any one proce- 
dure form a circular chain. 
If there are no ENTRY state- 
ments in a procedure this 
slot will contain the dic- 
tionary reference of the 
PROCEDURE's entry type 1, 
i.e., of the entry in which 
the slot occurs 
43 OPTIONS code byte 
44-57 Eight 2-byte dictionary 
references to dictionary 
entries for prefix options. 
Only those prefix options 
which are changed within the 
procedure have a dictionary 
reference. The remainder 
are zero. The order of the 
options in this list is the 
same as in the options byte. 
(See "Options Code Byte" in 
Section 3 below) 


60 Options change byte. This 
byte contains a one bit for 
each prefix option which is 
changed within tbe proce- 
dure. Its format is identi- 
cal with the normal options 
byte 

61-63 Offset of workspace used in 

BUY statement 


64 Optimization byte 


65 2*n where n is the number of 
parameters at this entry 
point 


66 onwards N dictionary references of 
formal parameter type 1 
entries 


The format of an entry for a BEGIN | 
statement is similar to the above for the 
first 34 bytes. The initial code byte is 
X'81', and the dictionary reference in 
bytes 8 and 9 is that of the first label on 
the original BEGIN statement, if any. If 
there was no statement label, then the 
Statement number occupies this slot. The 
presence of a statement number or statement 
label is indicated by a flag byte in 
position 35. This is set to SN for a 
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Statement number, or to SL for a statement 
label. Bytes 36-56 contain the same as 
bytes 44-64 in a PROCEDURE entry type 1. 


The format for the entry type 1 derived 
from an ENTRY statement is as follows: 


Byte Number Description 
1 Code byte X'82' 
2-3 Length 
4 Level 
5 Count 
6-7 Dictionary reference of the 
. next member in the circular 
PROCEDURE-ENTRY chain 
8-9 Dictionary reference of the 
dictionary entry for the 
first label on the original 
ENTRY statement 
10-12 The offset of the apparent 
entry point 
13 2*n where n is the number of 


parameters 


14 onwards n dictionary references to 
the formal parameter type 1 
entries 


The labels on a PROCEDURE or ENTRY 
Statement will be placed in the dictionary 
according to the following format: 


Byte Number Description 


1 Code byte x'01' 

2-3 Length 

4-5 Hash chain(STATIC chain) 
6-8 Pointer to transfer vector 
9-10 Statement number. If the 


label is mentioned in an ON 
CHECK list, this slot 
contains the dictionary 
reference of Label BCD Entry 
(X'CE'), which has the 
Statement number in bytes 4 
and 5 


11 Other 1 code byte. (See 
"First code byte - other 1" 
in Section 5 below.) The 
last bit will always be set 
to one, unless the label is 
the last label for a 
particular statement, in 
which case the last bit will 
be set to zero. 


12-13 Pointer to entry type 2 


14-16 Spare bytes for final 
assembly. The pseudo-code | 
phase dealing with RETURN 
(expression) will insert 
into these bytes a code 
which must be stored in a 
specific slot in the DSA 
whenever the procedure is 
entered via this label. The 


code is used by the prologue . 


construction phase. Byte 16 
in the first label for each 
PROCEDURE or ENTRY statement 
will contain the number of 
labels associated with that 
statement 

17 Block level 

.18 Block count 

19 Count of containing block > 

20 BCD length-1 


21 BCD of label 


Entry Type 2 


An entry type 2 describes the data 
attributes of an ಹಾಚಾ point. The format 
is as follows: 


Byte Number Description 

1 Code byte ೫1851, 

2-3 Length. 

4-5 Dictionary reference of 
entry type 3 

6-8 offset, i.e., the position 
of the string dope vector in 
the DSA of the block to 
which the entry belongs. 
This will be zero if the 
item is not a string. 

9 DATA byte (see "DATA Byte" 
in Section 5 below). 

10-12 Data information, which is: 


1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed 
maximum length, the 
binary version of the 
string length in the two 
leftmost bytes of the 
data information 
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13-14 


Ent e 


3. for strings of adjustable 
length, the text 
reference of a second 
file statement giving the 
expression for the string 
length 


Picture table reference, if 
required. The storage allo- 
cation phase will change 
this to the dictionary 
reference of a DED entry, 
the picture table reference 
being moved into this refer- 
ence if necessary 


Entry type 3 dictionary entries are 
constructed either from an explicit 
declaration or from implicit and default 


rules. 


Byte Number 
1 


‘2-3 
4-5 


6-7 


8-10 


11 


12-13 


14-15 
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Their format is as follows: 


Description 
Code byte ೫8813 
Length of entry. 


Dictionary reference of 
entry type 1 of PROCEDURE or 
ENTRY statement. 


Dictionary reference of 
entry type 2. This 
describes the value returned 
when the label associated 
with this entry type 3 is 
invoked as a function. 


The offset in the DSA of the 
containing block of the 
first approximation of the 
Storage for the value 
returned by this entry 
point, when it is invoked as 
a function. 


The entry code byte. (See 
"Entry Code Byte" in Section 
3 below) 


The dictionary reference of 
an item in the AUTOMATIC 
chain of the containing 
block. Entry type 3 entries 
feature in the AUTOMATIC 
chain of the containing 
block. 


Switch bytes. The pseudo- 
code phase dealing with 
RETURN (expression) inserts 
into these bytes the bit 
pattern of the code which 
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16-17 


18-19 


20 


21 


22 onwards 


22*2n- 
23+2n 


will signify that entry to 
the procedure was by the 
label associated with this 
particular entry type 3. 
Phase QF will use this to 
create MVI instructions. 


Dictionary reference of a 
SETS list. This will be 
zero if the attribute SETS 
was not specified. The 
format of a SETS list is 
given at the end of this 
section. 


Dictionary reference of the 
dictionary entry for the 
label belonging to this 
entry type 3. 


Status byte. This byte will 
contain X‘00° or ೫.೫೦, 
X'00*' indicates that the 
entry was constructed from 
an ENTRY declaration which 
had parameter descriptions. 


.X'FO' indicates the entry 


was constructed either arti- 
ficially or from an ENTRY 
declaration which did not 
have parameter descriptions. 


2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 


If the status byte is X'00' 
there are n two-byte 
references of parameter 
descriptions. A parameter 
description is a dictionary 
entry for the particular 
type of item but without a 
BCD. If one particular 
parameter is not described, 
i.e. if there are two 
adjacent commas in the ENTRY 
attribute, then the 
dictionary reference is 
zero. When the status byte 
is X'FO' then an entry type 
3 is only 23 bytes long. 


DECLARE statement number 


SETS List Format 


Byte Number 
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1 


2-3 


Description 
Code byte X'C8' 


Overall length of original 
BCD entry 


4-5 


6-5*2*n1 


6*2*n1 


7*2*n1 
onwards 


Entry Type 4 


2*n1 where n1 is the number 
of identifiers in the SETS 
list. If * was specified, 
these bytes contain 2*n1*1. 


Dictionary references of the 
identifiers in the SETS 
list. 


n2, the number of para- 
meters in the SETS list. 


n2 numbers of one byte each. 
These are the parameter 
numbers and will be in 
ascending order. 


Entry type 4 dictionary entries describe 


external entry points. 


follows: 


Byte Number 
1 


2-3 
4-5 


9-11 


12-13 


14 


15 


16-18 


Their format is as 


Description 
Code byte ೫031 


Length 


Hash chain, later used 
as the STATIC chain 


Offset of the load constant 
in STATIC 


Offset in the DSA of the 
declaration block of the 
storage for the first 
approximation of the value 
returned. 


The dictionary reference of 
an item in the AUTOMATIC 
chain of the declaring 
block. Entry type 4 entries 
are members of the AUTOMATIC 
chain of the declaring 
block. 


The Entry code byte. (See 
"ENTRY Code Byte" in Section 
3 below). 


The DATA byte. (See "DATA 
Byte" in Section 5 below) 


Data information which is: 

a) with numeric data, the 
precision and scaling, 
left justified 

b) for strings of fixed 
maximum length, the 
binary version of the 
string length in the two 
leftmost bytes of the 


data information 

c) for strings of adjustable 
length, the text refer- 
ence of a second file 
statement giving the 
expression for the string 


length 

19-20 Picture table address if 
required. 

21-22 Dictionary reference of a 
SETS list 

23 Status byte. If this byte is 
X'00' the meaning is the 
same as the status byte in 
an entry type 3. If the 
byte is X'FF' it is implied 
that no parameters were 
described 

24 2*n where n is the number of 
parameters. This is zero if 
the status byte is X'FF' 

25 n dictionary references to 
parameter descriptions as in 
an entry type 3 

25*2*n Level 

26*2*n Count 

27*2*n BCD length-1 

288237 

onwards BCD of identifier 

Entry Type 5 


Entry type 5 dictionary entries describe 
the entry points which are formal 
parameters. They have the same format as 
entry type 4 except that: 


Byte 1 is ೫831 


Bytes 4 and 5 contain the address of 
the formal parameter type 1 entry 


Bytes 6 to 8 contain the offset in the 
DSA of the declaring block of the 
address slot associated with a formal 
parameter 


No BCD is contained in the entry 
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GENERIC Entry Point 


The format for a GENERIC entry point is as 
follows: 


Byte Number Description 

1 Code byte ೫021 

2-3 Length 

4-5 Hash chain 

6-8 Offset 1 Slot 

9-10 DECLARE statement number 

11 2n, where n is the number 
of two-byte addresses 
following 

12-11*2n Pointers to entry type 4 
or 5, ENTRY labels, or 
BUILTIN entries. These 
entries are made when an 
identifier is given the 
attribute GENERIC. The 
pointers are to the entries 
which contain specifications 
of the various possible 
attributes 

12+2n Level 

13+ 2n Count 

14+2n BCD length-1 

15+2n BCD 

Onwards 


3. CODE BYTES FOR ENTRY DICTIONARY ENTRIES 


ENTRY Code Byte 


This code byte is used in entry type 3, 4, 
and 5 dictionary entries. The format is as 
follows: 


Bit Number Description 


0 IRREDUCIBLE 
1 REDUCIBLE 

2 USES 

3 SETS 

4 SECONDARY 

5 RECURSIVE 
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Has data attribute 


Not used 


Options Code Byte 


This code is used in entry tyve 1 
dictionary entries for PROCEDURE 


Statements. 


Bit Number 


0 


The format is as follows: 


Description 
REENTRANT 


ON Block 
MAIN 
TASK 
RECURSIVE 


OPTIONS 


Contains RETURN (expression) 


Statement 


ENTRY name is passed as 
argument 


Optimizetion Byte 


This code byte is used in entry type 1 
dictionary entries. 


Fcrmat of the Optimzation Byte: 


Bit Number 


0 
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Nescription 


Not eligible for DSA in 
library workspace. 


Fligible for DSA in STATIC 
storace. 


Needs invocation count. 
Needs current file slot. 
Contains asynchronous CALL. 
Indicates ORDER cr REORDER 
option 

0 = ORDER, 

1 = REORDER. 
Default is ORDFR 
Not used. 


Not used. 


4. DICTIONARY ENTRIES FOR DATA, LABEL, ML 
STRUCTURE ITEMS 


Label Variables - Obtained from DECLARE 


Statement 


Byte Number 
1 


9-10 


11 


12 


13 


14 


15 


16 onwards 


Description 


Code byte may be X'07', 
X'17', X'27', X'37', X'87', 
X'97', X'A7', X'B7'. The 
last four cases apply when 
the item occurred in a 
parameter list in a 
PROCEDURE or ENTRY 
Statement. In this case, 
bytes 4 and 5 will contain 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. In 
the first four cases, bytes 
4 and 5 initially contain 
the hash chain. After the 
scan of the dictionary, this 
Slot will be re-used to form 
another chain, e.g., 
AUTOMATIC or STATIC chain 


Length 


Initially contains the hash 
chain. After tne dictionary 
scan, this is re-used to 
form another chain, e.g., 
AUTOMATIC or STATIC chain 


Offset inserted by storage 
allocation phase (as for a 
data item) 


DECLARE statement number 


'Other 1' code byte (See 
"First Code Byte - Other 1" 
in Section 5 below) 


'Variable' code byte (See 
"Variable Byte" in Section 5 
below) 


'Other 2' code byte (See 
'Second Code Byte - Other 2" 
in Section 5 below) 


'Other 3' code byte (See 
"Third Code Byte - Other 3" 
in Section 5 below) 


‘Other 4' code byte (See 
"Fourth Code Byte - Other 4" 
in Section 5 below) 


Content determined by 
variable code byte. 


After variable information 


2 bytes . Symbol slot 


1 byte Level 

1 byte Count 

1 byte BCD length-1: 
BCD 


With the exception of the 2-byte symbol 
slot, the general format is the same as for 
a structure. 


Dictionary Entries for Data Items 


The format is as follows: 


Byte Number Description 


.1 Code byte may be X'OF', 
21181, X'2F', X'3F', X'8F', 

X'9F', X'AF', or X'BF'. The 
last four cases apply when 
the jtem occurred in a 
parameter list in a 
PROCEDURE or ENTRY 
statement. In this case, 
bytes 4 and 5 will contain 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. In 
the first four cases, bytes 
4 and 5 initially contain 
the hash chain. After the 
scan of the dictionary this 
slot will be re-used to form 
another chain, e.g., 
AUTOMATIC or STATIC chain 


2-3 Length 
4-5 See above 
6-8 Offset. (See "Format of 


Variable Information" in 
Section 6 below) 


9-10 DECLARE statement number. 
If the variable has not been 
explicitly declared, this 
number is zero; otherwise, 
it is the statement number 
assigned to the DECLARE 
statement from which the 
variable was obtained. 


11-16 Six code bytes. These are: 
other 1, variable, other 2, 
other 3, other 4, and data. 
(See "Code bytes" in Section 
5 below for a description of 
these bytes.) 


17-19 


20-21 


22 


1 byte 
1 byte 


Data information, which is: 


1. with numeric data, the 
precision and scaling, 
left justified 

2. for strings of fixed 

maximum length, the 
binary version of the 
String length in the two 
leftmost bytes of the 
data information 

3. for strings of adjustable 
length, the text 
reference of a second 
file statement giving the 
expression for the string 
length 

4. Bit 0 of byte 19 
indicates that the 
temporary is used as an 
argument for halfword 
binary temporaries 


Note: In the case of a 
temporary data variable for 
an argument, the first bit 
of byte number 19 is set to 
1 by phase GP. It is set to 
0 by phase IM for temporary 
arguments to built-in 
functions and 
pseudo-variables. It is 
examined by phase QU. 


Symbol slot, containing 
either zero, or one of the 
following: 


1. If the SYMBOL and DED 


bits are not on, and the 
data item has a picture, 
these bytes contain the 
dictionary reference of 
the picture table entry 

2. If the DED bit is on and 
the SYMBOL bit off, this 
slot points at a DED 
entry. If the item has a 
picture, the DED entry 
will contain the picture 
table address 

3. If the SYMBOL bit is on, 
the slot will point ata 
SYMBOL entry. This again 
will contain the picture 
address, if specified 


Variable information. The 
contents of these bytes are 
determined by the variable 
code byte. (See “Format of 
Variable Information" in 
Section 6 below) 


Level 


Count 


Appendix C: Internal Formats of Dictionary Entries 395 


1 byte BCD length-1 


BCD 


Major and Minor Structure Entries 


These entries do not include base elements, 
i.e., they do not have any data attributes 
or LABEL. Their format is: 


Byte Number Description 


1 Code byte may be X'2E', 
X'3E', X'AE', or X'BE'. The 
last two indicate that there 
is no BCD attached. When 
the identifier occurs in the 
parameter list of a 
PROCEDURE or ENTRY 
Statement, bytes 4-5 contain 
the dictionary reference of 
the formal parameter type 1 
entry. In the case of the 
first two code bytes, bytes 
4-5 of the entry initially 
contain the hash chain. 9-10 
This is later modified by 
Phase FT 


2-3 Length 
11-15 
4-5 See byte number 1 


6-8 These bytes are used by the 
storage allocator; they will 16 
finally contain one of the 
following offsets: 


1. For structures which are 
parameters, or are 
dynamically defined, the 
offset from the start of 
the major structures dope 
vector or the minor 
structures dope vector. 

2. For major structures, the 
offset from the start of 


AUTOMATIC or STATIC of 1 byte 
the address slot which 
will point at the 1 byte 
structure dope vector 

3. For CONTROLLED 1 byte 


structures, only that 
specified for minor 
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structures in 1 , above 

4. For structures in 
STATIC EXTERNAL the 
contents depend on the 
setting of the "dope 
vector required" bit in 
the "other 3" code byte. 
If this bit is off and 
the item is a major 
structure, the slot 
contains the offset from 
the start of STATIC of 
the slot which will 
contain the address of 
the first byte of the 
structure. If the dope 
vector bit is on, the 
slot contains the offset 
from the start of STATIC 
of the address slot which 
will point at the 
structure dope vector. 
The offset slot is not 
used in either of the 
above cases for minor 
structures 


DECLARE number, i.e. the 
Statement number of the 
DECLARE statement which 
produced the structure 


Five code bytes. These are: 
other 1, variable, other 2, 
other 3, and other 4 


Variable information. The 
content is determined by the 
variable code byte, and will 
always include the 
information required for 
structure members. (The 
format is described under 
"Format of Variable 
Information" in Section 6 
below) 


After variable information: 
Level 

Count 

BCD length-1 


BCD 


5. CODE BYTES FOR DATA, LABEL, AND STRUCTURE DICTIONARY ENTRIES 


The First Code Byte - Other 1 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
1! 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


a ee ee er ಸರ್‌ quem ncm PE ನ್‌ ee 1 
| Bit | | | | 
| No. | Description | Set By | 
bh 
| 0 | Symbol or requires load constant if | Phase EL, FT, or | 

| label constant | NU | 

| | | 
MEN | | 

1 | Defined on | Phase EL | 
| | | 

| | | 

2 | Mentioned in CHECK list | Phase FO | 
| | | 

| | 1 | 

3 | Needs DVD | Various | 
| | | 

4 | Last member in structure | Phases EL or EW | 
| | | 

5 | Variable dimensions | Phase EL | 
| | | 

6 | * dimensions | Phases EL and FT | 
NND | | 

7 | * string length for data item | Phases EL and FT | 
| | | 

| --More labels follow for a label | Phase EG | 

| constant | | 

| | | 

| ---Major Structure - no member of | Phase EY | 

| the structure has a dimension or | | 

| length attribute which is not * | | 
e RNC ER a PR ಹು J 

The Second Code Byte - Other 2 
prece ನಾವಾ DTE ym 1 
| Bit | Description | Set by | 
| ೫೦. | | | 
}-----}-----------------—------------------- }-------—------—---- { 
| 0 | Dynamically defined | Phase EL | 
| | | | 
{1 | CONTROLLED major structure with { Phase EY | 
| | varying strings | | 
| | | | 
| 2 | NORMAL = O, ABNORMAL = 1 | Phases EI and FT | 
| | | | 
| 3 | Reserved [ | 
| | l | 
| 4 | Formal Parameter | Phase EI | 
| [ | | 

[| 5 | INTERNAL = O, EXTERNAL = 1 | Phase EI | 
I | | | 

46 | 00 = AUTOMATIC or DEFINED or simple | Phase EL | 
| | parameter | | 

| and | | | 

| | | | 
| | 01 = STATIC | Phase EL | 

1. 1 | | 
| 7 (| 11 = CONTROLLED | Phase EL | 
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The Third Code Byte - Other 3 


calmer ತಾವ ಸಾಜಾ ಜಾವಾ ತಪಾ ಪಾವಾ ಹಾ Mq ಸಾಜಾ ee cud mie wie ii => 1 
| Bit | | | 
| No. | Description | Set by | 
E: }------------—-----—-----—---] 

|| 0 | Needs dope vector | Phases EK and EY if variable | 


dimension entries, variable 
string length, or in 
CONTROLLED storage; 

Phase NU when item appears 
in an argument list 


| 
I | | 
| | | 
l | | | 
I | | | 
I | | | 
| | | | 
{1 | Needs DED | Phase NU | 
| | | | 
| 2 | Needs no storage for the item | Phase GP | 
| | itself | | 
[ | | | 
| 3 | Correspondence defined | Phase FV | 
| | [ | 
| 4 | Chameleon | Phase GP | 
| I [ | 
| 5 | Data Variable UNSAFE | Set by phase KE | 
| | | 1= UNSAFE | 
| | | O= SAFE | 
| | | This use is local to the | 
| | | K phases | 
| | | | 
| | Sign bit for first offset | Phase PH for STATIC and | 
| | | Phase PT for AUTOMATIC | 
| | [ | 
| 6 | Indication of the state of | Phase PH for STATIC and | 
| | the value in the first offset | Phase PT for AUTOMATIC | 
| | 0 = rubbish | | 
| | 1 = good value | | 
| | | | 
|| 7 | As above but for second | Phase PH | 
| | address slot | | 
"ser SIS ತ ಯಾ Ed 
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The Fourth Code Byte - Other 4 








| Bit | | | 
| ೫೦. | Description | Set by | 
I--—- ಬಾ ರಾ ರ }------------------- 4 
| 0 | Usage (i): | Phase EL (for EW) | 
l | An explicit alignment | | 
| | declaration has been made | | 
| | Usage (ii): | Phase JK | 
| | A constant has been produced] | 
| | for this structure or array | | 
| | | | 
| 1 | 00 = Not temporary | Phase GP, HF, HK, | 
| and | 01 = Temporary type 2 | IM, or LB | 
| 2 | 10 = Temporary not sold | | 
l | :11 = COBOL temporary | | 
| | I | 
| | | | 
| 3 | Member of defined structure | Phase FV | 
| | | | 
| 4 | Packed = 0 Aligned = 1 | Phase EL | 
| | | | 
| 5 | Major structure | Phase EL | 
| | | | 
| 6 | No dope vector initialization | Phase GP | 
| | | | 
| 7 | A temporary type 2 which has | Phase OB | 
| | been incorporated in work- | | 
| | space 1 or RDV required. For | | 
| | COBOL temporaries this bit | | 
| | means RDV required | | 
E ecu dics ತಾಸ ನಾಮ UE SERINE ಸಸಯ eRe TRI wee ERR E | 
Variable Byte 

gap SS Se a i qim 

| Bit | Description | 

| ೫೦. | | 
be 1 

| 0 | Second address slot | 

| | | 

| 1 | Dimensioned | 

| | | 

| 2 | Member of structure | 

| | | 

{ 3 | Value list for label variables or | 

| | POS for defined items | 

| | | 

| 4 | Initial value if not a structure | 

| | or LIKE if a structure I 

| | l 

{ 5 | EXTERNAL slot | 

| | | 

| 6 | Defined slot | 

| | | 

{ 7 | CONTROLLED from ALLOCATE statement| . 

LiL ————— € — 








For a detailed explanation of the 
significance of these bits and a 
description of the extra slots associated 
with them, see "Format. of Variable 
Information" in this Appendix. 
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Data Byte 


poeseos pem quc eee ಸರ್‌ quent qorccc ವಾ a ee ee enm d 

| | | | | | | | | 
| BIT | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 
| | | | | | | | | | 
bo 
| CAD or |1| POINTER | Sterling | Long | Cad. | Binary | Float | Complex | 1 
| NUMERIC | | OFFSET * | NON | Short/ | Numeric | Decimal | Fixed | Real | 0 
| FIELD | | | STERLING | OFFSET | Field | | | | 
bh $- 4 
| STRINGS | 0 | Adjustable | Aligned | Varying | No | Char | AREA | Not | 1 
| | | Length | | | Picture | | VARI- | Used | 
| | | String | Unaligned | | Picture | Bit | ABLE* | | 0 
ane | a REND bes case nn. NS | ee — PEERS: ! 


*AREA, POINTER, and OFFSET data byte settings are: 
AREA: 
POINTER: 
OFFSET: 


Note: The LONG bit X'10' is set to 1 for halfword 


6. FORMAT OF VARIABLE. INFORMATION 


Data items, labels, and structures require 
pointers to various tables if they have 
certain attributes; for example, if they 
are dimensioned or defined on a base. 

Space will be left for information only if 
the attribute is present. This leads to an 
addressing problem of how to find the 
position of the information when the 
presence of other attributes alter its 
address. 


The problem is resolved by collecting, 
into one byte, all the attributes which 
require more than one bit to describe them. 
This has taken the second place in all the 
collections of attribute bytes. The 
presence of a bit in this byte indicates 
the presence of further information. The 
offset of this information from the start 
of the variable information is given by the 
presence of the bits to the left of the one 


X'02' superimposed on the non-pictured CHAR string data byte entry 
X'40' superimposed on the FIXED BIN data byte entry 
X'50' superimposed on the FIXED BIN data byte entry 


binary and 0 for fullword binary 


dictionary entry is based on questions 
about the nature of the identifier. 
Refer to Figure 10. 


೯3 

|೫| implies that a second offset 
t-J slot will be given, 

r~ 

IN| that it will not. 

೨.1 


number 1: 


The dimensioned bit. The slot produced 
by this is three bytes long. The first 
byte will contain the number of 
dimensions, the next two the dictionary 
reference of the dimension (multiplier) 
table 


number 2: 


Member of a structure bit. This slot 
is ten bytes long and has the following 
format: 


of interest. Each bit will have a value Byte Number Description 

associated with it. The sum of the values 

of the bits present and to the left of the 1 Declared level number 

one of interest will give the value of the 

offset. This is achieved in the coding by 2 True level number 

moving the code byte, masking off the bits 

to the right of the one being tested and 3-4 Dictionary reference of 

the bit itself, and translating the byte. the containing structure 
The information produced by the presence 5-6 Dictionary reference of 

of the following bits in the variable byte the next member in the 

is as follows: structure 

Bit number 0: 7 Alignment 


The second offset slot is 4 bytes long. 
The contents of this slot are described 
in this appendix. The decision to 
include a second offset slot ina 
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Note: The value held in this 
byte corresponds to ELEMENT 
size (in bits) and would be 
one of the following: 


8-10 


೫036 - 
X'08' - 
೫101 - 


BIT alignment 
CHAR alignment 
HALFWORD alignment 


X'20' - FULLWORD alignment 
X'u40' - DOUBLEWORD alignment 
Element length 


Bit number 3: 


POS for defined items. 


The two-byte 


slot will contain the POS value as a 
binary integer. 


Bit number 4: 
The initial value or LIKE bit is a 
four-byte slot. 


1. 


For normal initial value. The first 
two bytes contain the dictionary 
reference of the associated 'Initial 
Value' dictionary entry. The fourth 
byte contains X'FO*' 

For INITIAL CALL. The first three 
bytes contain the text reference of 
a second file statement. The fourth 
byte contains X'OF'. 

For initial labels. The first three 
bytes contain the text reference of 
a set of second file statements. 
The fourth byte contains X'FF'. 
there is an initial slot but no 
initial values the fourth byte 
contains X'Oo' 

For LIKE. The first two bytes 


If 
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Bit 


Bit 


The DEFINED bit. 


The CONTROLLED from ALLOCATE bit. 


contain the LIKE chain. The third 
and fourth bytes contain the 
dictionary reference of the likened 
structure 


number 5: 
The EXTERNAL bit. This 2-byte slot 
contains the ESD number 


number 6: 


This 7-byte slot 
contains the following: 


Byte Number Description 
1-2 Defined chain. 
3-4 Dictionary reference of base 
5-7 The text reference of a 
second file statement. 
After the dictionary these 
bytes will contain X'FFFFFF' 
if the base is 
unsubscripted. 
Bit number 7: 


This 
bit is on for dictionary entries for 
level 1 CONTROLLED data specified in 
ALLOCATE statements. The two-byte slot 
contains the dictionary reference of 
the dictionary entry for the data 
constructed from the DECLARE statement 
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————— À— À— | 


| Entry | 


Le 
| 
V 
Y| Is it data | 
r--i item? | 
ನ ಸಸಾರ ತ 
| IN 
| V 
| CARGOES REET (41an 
| | Is it struc- |N | Is it label IN e 
| | ture? be ——->| variable? t-->1N| 
| ರ್ಟ ರ್ಕ pe L-J 
LL--------»5|€--—-—-----—-----—--------- Y 
YV 
proe 1 puo momen med 
| Is it formal |Y | Is it struc- |N rea 
| parameter? E---—------»5| ture member? ಕು|| 
Ld A SSE RE T--—--—- à Ls 
IN | IY 
V I V 
porc error | r= 
| Is it con- IY | | Yl 
| po tJ 
| trolled? | 
IN 
v 
potesse ee eun mE Cet ee ತ 1 
| |Y | Is it ex- IY ra 
| Is it static? þ--------->| þ-->|Y 
| | | ternal? | tJ 
-—————M n ತುಜಾ ಸಸ T-—-—- 4 
N[4--—--------——--------—- JN 
V 
geni —áÓ—€ 
| IY ri 
| Is it string? }-->|Y| 
|N 
V 


(oe 

| Is it struc- |Y ra 
| ture member? }-->|Y| 
L 


IN 

V 
SS esee DE e 
| IY ea 
| Is it defined?}-->|Y 
Ld Lo 

IN 

V 
ea aa Rae ಸಸ. 
| Is it dimen- |Y ¢- 
| sioned? [|೪| 
ಹ ರ tJ 

IN 

V 

r1 

IN| 
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Figure 10. Decision to Include a Second Offset Slot 
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Uses of the OFFSET1 and OFFSET2 Slots in 


Data, Label, and Structure Dictionary 
Entries 


The OFFSET1 slot is in bytes 6-8 of the 
dictionary entry and the OFFSET2 slot is 
part of the variable information. 


STATIC INTERNAL Structures 





Major and minor structure entries: 
OFFSET1 slot not used. OFFSET2 slot 


contains offset of structure dope 
vector from start of STATIC INTERNAL 
control section (if there is a dope 
vector) 


Basic elements: OFFSET1 slot contains 
offset of virtual origin (in the case 
of dimensioned items) or offset of item 
(when not dimensioned) from start of 
STATIC INTERNAL control section. 
OFFSET2 slot contains offset of dope 
vector (if there is one) from start of 
STATIC INTERNAL control section 


AUTOMATIC Structures 


Constant dimensions: as for STATIC 
INTERNAL except that all offsets are 
relative to start of DSA. 


Adjustable dimensions: major and minor 
structure entries: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
structure dope vector from start of DSA 
(if there is a dope vector) 


Rasic elements: OFFSET! slot not used. 
OFFSET2 slot contains offset of 
element's dope vector (if there is one) 
from the start of the DSA 


STATIC EXTERNAL and Parameter Structures 





Major structure entry: OFFSET1 slot 
contains offset of address slot from 
Start of data region. OFFSET2 slot 
contains size of EXTERNAL control 
section. (Offset of major structure 
dope vector = 0.) 


Minor structure entries:  OFFSET1 slot 
not used.  OFFSET2 slot contains offset 
of structure's dope vector from start 
of major structure dope vector. 


Basic elements:  OFFSET1 slot not used. 
OFFSET2 slot contains offset of 
element's dope vector from the start of 
the EXTERNAL control section 


CONTROLLED Structures 


Major and minor structures:  OFFSET1 slot 
not used. OFFSET2 slot contains offset 
of structure dope vector from point to 
which pseudo register points. (In the 
case of the major structure, this value 
will be zero.) 


Basic elements:  OFFSET1 slot not used. 
OFFSET2 slot contains offset of 
element's dope vector relative to 
address in pseudo-register. 


Non-Structured Arrays in STATIC INTERNAL 


OFFSET1 slot contains offset of vertical 
origin of the array relative to start of 
data region.  OFFSET2 slot contains offset 
of dope vector (if there is one) from the 
start of the data region. 


Non-Structured Arrays in AUTOMATIC 


Constant dimensions: as for STATIC 


INTERNAL 


Adjustable dimensions:  OFFSET1 slot not 
used.  OFFSET2 slot contains offset of 
dope vector from start of data region. 


STATIC EXTERNAL, CONTROLLED or Parameter 
Array 


OFFSET1 slot contains offset of address 
slot which contains a pointer to the arrays 
dope vector. (Not used in the case of 
CONTROLLED.)  OFFSET2 slot is not present. 


Non-Structured Scalar Strings in STATIC 
INTERNAL 


OFFSET1 slot contains offset of datum from 
start of data region.  OFFSET2 slot 
contains offset of dope vector (if there is 
one) from start of data region. 
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10 
11 


Count 
BCD length-1 
BCD 
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Non-Structured Scalar Strings in AUTOMATIC 


Constant length: 


Adjustable length: OFFSET1 slot not 
used. OFFSET2 slot contains offset of 
dope vector from start of data region. 


as for STATIC INTERNAL 


Non-Structured Scalar Strings in STATIC 
EXTERNAL, CONTROLLED or Parameter 


OFFSET1 slot contains offset of address 
slot which points to string dope vector 
(not used in the case of CONTROLLED). 
OFFSET2 slot not present. 


Non-Structured Non-String Scalars in 
AUTOMATIC or STATIC INTERNAL 


OFFSET1 slot contains offset of datum from 
start of data region. OFFSET2 slot not 
present. 


Non-Structured Non-String Scalars in STATIC 
EXTERNAL, CONTROLLED ox Parameter 


OFFSET1 slot contains offset of address 
slot which points to datum (not used in the 
case of CONTROLLED). OFFSET2 slot not 
present. 


7. OTHER DICTIONARY ENTRIES 





Label Constants - Extracted by the Read-In 
Phase 


Byte Number Description 
1 Code byte X'00' 
2-3 Length up to BCD length-1 
byte 
4-5 Hash chain - STATIC chain 
6-8 Offset 
9-10 Statement number (except 


when the label is mentioned 
in an ON CHECK list, in 
which case it gives the 
chain to the label BCD 
dictionary entry, code byte 
X'CE') 
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11 Other 1 Code Byte (See 
"First Code Byte - Other 1" 
in Section 5 above) 


12-14 Second Offset Slot 

15-16 Spare for Final Assembly 
17 Level 

18 Count 

19 Count of Containing Block 
20 BCD Length-1 | 
21 etc. BCD 


Compiler Labels 


The format is identical to that of a label 
constant, except for the omission of the 
BCD. The code byte is X'C3'. If the 
compiler label has been constructed for a 
label variable, then the BCD for the label 


and its subscript will follow on behind the 


entry and the total length of the entry is 
given in bytes 2-3. 


Formal parameter type 1 entry 


These entries are derived from the 
PROCEDURE and ENTRY statements, and do not 
contain any information other than that the 
identifier is a formal parameter. The 
format is as follows: 


Byte Number Description 
1 Code byte X'40* 
2-3 Length 
4-5 Hash chain 


6-7 These bytes will point to a 
full description of the 
identifier after Phase EK, 
or Phase FA, or Phase FE. 
These full descriptions are 
dictionary entries for the 
type of item they are 
describing. They do not 
contain the BCD of the 
identifier, but in the slot 
for the hash chain there is 
the dictionary reference of 
the corresponding formal 
parameter type 1 entry. 


8 Level 


For a description of the types of entry 
pointed to, see “Dictionary entry for 
parameter descriptions." 


Dictionary entry for FILE 


For attributes specified in OPEN statement 
the format is as follows: 


Byte Number Description 
1 Code byte X'98' 
2-3 Length 
4-5 STATIC chain 
6-8 OFFSET1 
9-10 DECLARE statement number 


11 onwards String of second level 
markers (without preceding 
'C8' code bytes) one for 
each attribute other than 


FILE, TITLE and IDENT. 
This entry is created by the read-in 


phase and is referred to only as the 
arqument of an ATTRIBUTES marker. 


FILE Constants 


Code X'08' is used for file constant. 
entries, which have the following format: 


Byte Number Description 

1 Code byte X'08' 

2-3 Length 

4-5 Hash chain, subsequently 
EXTERNAL or STATIC chain 
depending on whether FILE is 
EXTERNAL or INTERNAL 

6-8 ೦೫೫೨5೫13 (STATIC or transfer 
vector offset) 

9-10 Declare statement number 

11-12 Dictionary reference of 
attributes entry (zero if 
none) 

13 Code byte (similar to the 
"other 2" code byte. Only 
internal/external bit used) 

14-15 Dictionary reference of 


environment string (zero if 
none) 


Appendix C: 


16 Level 
17 count 
18 BCD length-1 


19 onwards BCD 


FILE Parameters and Temporaries 


Code X'89' is used for file parameters and 
for file temporaries. The format of the 
entry will be the same as that for label 
variables. 


FILE Environment Entries 


Code X'C8' is used for the environment 
string. 
Byte Number Description 

1 Code byte x'c8' 

2-3 Length 


4 onwards Internally coded form of 
argument of ENVIRONMENT 


option 


Code X'C8' is also used for attributes 
collected from the DECLARE statement. 


Byte Number Description 


1 Code byte X'c8' 


2-3 Length 


4 onwards String of second level 
markers (without preceding 
code bytes X'C8'), one for 
each attribute other than 
FILE, ENVIRONMENT, EXTERNAL, 
or INTERNAL 


Dictionary Entries from Constants 


The format is: 


Byte Number Description 
1 Code byte X'88' 
2-3 Length 
4-5 Hash chain 


6 DATA byte 


Internal Formats of Dictionary Entries 405 


7 Data Precision* 


8 Scale Factor* 


*These are the apparent 
precision and factor derived 
from the BCD of the constant 


(see Note 2) 
9 Type (see note 1) 
10 DATA byte (2) 
11 Data Precision (2) ** 
12 Scale Factor (2)** 


**iT These bytes are inserted 
by the phase requesting 
conversion. If a picture is 
required, these bytes are 
used to contain a picture 
table reference 


(see Note 3) 


2. 


Seventh bit: 1 indicates that the 
constant requires a dope vector. 


Eighth bit: 1 indicates that no 
conversion is required. 


After the constants processor the 
bytes 6 through 8 will contain the 
offset of the constant from the start 
of the pool of constants. If a dope 
vector is requested then the offset of 
this from the start of the constants 
pool is eight less than that of the 
converted constant. 


Should a DED be required, this will be 
constructed by Phase PL. The two 
bytes, precision(2) and scale 
factor(2), will contain a dictionary 
reference of a DED dictionary entry. 
If the constant requires a dope vector 
then Phase OS will make a dictionary 
entry for it, and the dictionary 
reference preceding the BCD will be 


13-14 Dictionary reference - used the dictionary reference of this. 
when a phase requires a 
constant to be converted 
into a specific location in Task Identifiers and EVENT Data 
storage 
The format of the dictionary entries for 
15 BCD task identifiers and EVENT data is, apart 
from the initial code byte, the same as 
Notes: that for a label variable. 
1. The type byte has the following 


meaning: Dictionary Entries for Built-in Functions 


First and second bits: 


Description 
Code byte ೫1003 


The format is: 
00 - normal BCD constant. The first Byte Number 
offset slot must be 


relocated by the storage 1 
allocation phase, to 


contain the offset of the 2-3 Length 
converted constant from the 
Start of STATIC storage, 4-5 Hash chain - later becomes 
rather than from the start the STATIC chain 
of the constants pool 
6-8 Offset - gives the position 
11 - the BCD is replaced by the in STATIC storage of the 
internal form of the load constant for Library 
constant. The first offset routine 
slot is treated in the same 
way as for the code 00 9-10 Code bytes - the first code 
byte contains a value which 
10 or 01 - the constant is required to identifies the built-in 
be converted into a function and also provides 
specific location in information about it. It is 
storage. The second code used mainly by phases IM and 
implies the converted MD-MM inclusive. The second 
constant should be made code byte contains further 
negative before being information about the 
stored built-in function (See 
"Second Code Byte.") 
Sixth bit: 1 indicates that the 
constant requires a DED. 11-12 DECLARE statement number 
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13 Level 


14 Count 
15 BCD length-1 
16 BCD 


Second Code Byte 
The second code byte contains the following 
information: 


Bit Number Description 


0 May be passed as an argument 

1 May have an array as an 
argument 

2 Must have an array as an 
argument 

3 Is a pseudo-variable 

4 Indicates to which of the 


two tables the offset refers 


5 May have an array (or 
structure) as an argument, 
but will return a scalar 
result 


Internal Library Functions 


Library routines, other than built-in or 
GENERIC functions, are known as Internal 
Library Functions. Their dictionary entry 
format is as follows: 


Byte Number Description 


1 Code Byte X'c2' 

2-3 Length 

4-5 Hash chain 

6-8 offset 

9 Library Code - identifies 


the particular Library 
routine required 


10 | Not used 
11-12 Code Bytes - the first code 
byte contains a value used 
by phase MG to pick up 
complete information about 
the library function. The 
second code byte contains 


further information about 
the function 


13 Level 


14 Count 


BCD entries 


BCD entries are used when the LIKE or 
DEFINED attributes are used. A short 
dictionary entry with the format given 
below is used. This is pointed at by the 
dictionary entry with the attribute. 


Byte Number Description 


1 Code Byte ೫೪0" 
2-3 Length 

4 BCD length-1 

5 BCD 


Dictionary Entry for Parameter Descriptions 


Dictionary entries for parameter 
descriptions are identical with the normal 
entry for data variable, label variable, 
structure, file, or entry points, except 
for the following details: 


Hash chain contains pointer to formal 
parameter type 1. After Phase FT this 
pointer is moved to the bytes 
containing level and count 

No BCD is present 


No block identification is present for 
ENTRY or FILE 


The code byte for an entry point - 
referred to as entry type 6 - is X'86' 


ON Statements 


Entries for ON statements are made by Phase 
FO, and contain the following: 


Byte Number Description 


1 Code Byte X'CD' 
2-3 Length 
4-5 AUTOMATIC chain 


Appendix C: Internal Formats of Dictionary Entries 407 


10 


11 
12 


13 onwards 


ON Condition 


offset 


Code byte as supplied by the 
Read-In Phase 


Block level 


Block count 
n 
n dictionary references of 


variables or ON condition 
entries 


This entry is made by Phase FO: 


Byte Number 


10 
11 
12 


Description 
Code Byte X'4D' 


Length 


Hash chain later used as 
AUTOMATIC chain 


Offset 


Code byte as supplied by the 
read in phase 


Block level 
Block count 


BCD length-1 


13 onwards BCD 


CHECK List Entry 


This entry is made by Phase FO: 


Byte Number 
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5 onwards 


Description 

Code Byte ೫'೮81' 

Length | 

n where n is the number of 
dictionary references 


following 


Dictionary references (2n 
bytes) © 


PICTURE Entry 


The format of an entry in the picture table 
in the dictionary. 


Byte Number 
1 


2-3 
4-5 


6-8 


10 


11 


picture following. 


Description 
Code Byte X'c8' 


Length = L*13 


Contains address of next 
entry in picture chain 


Usage (1) (Before Phase FQ) 
Dictionary reference of 
associated declare or format 
statement, right adjusted 


Usage (11) 
Offset in STATIC storage 


Code Byte (after Phase FQ) 
(See Code Byte description) 


P - the number of digit 
positions in field in 
numeric picture. 


Q - the number of digit 
positions after V character 


in numeric picture. Code 
X'80' represents 0, X'7r*' 
represents -1, and X'81' 


represents *1. 


W - apparent length of 
picture.  - length of 

(For a 
non-numeric picture the 
length is obtained in bytes 
12-13.) 


14 onwards Picture. 


Byte 9 - Code Byte 


Bit Number 


0 


Description 


string 
numeric 


Po 


correct 
error 


eo 


not sterling 
sterling 


short 
long 


Po FO 


Not used 


5 0 decimal 9-10 Dictionary reference or 


1 binary DECLARE number 
6 0 fixed 
1 floatina 11 onwards Bit pattern of skeleton dope 
vector 
7 Not used 


This entry is constructed by Phase PD 


Dictionary Entry for Workspace Requirement 


The format for a dictionary entry for Symbol Table Entry 
workspace requirement is: 
Byte Number Description Symbol table entries are made by Phase PL. 
1 Code Byte X'C8' or X'CA' Byte Number Description 
2-3 Length = 8 1 Code Byte X'c7' 
4-5 Total workspace required 2-3 Length 
6-8 Offset 4-5 STATIC chain 
If the code byte is C8 this is the 6-8 Offset in STATIC of DED 
temporary workspace used by pseudo-code 
(temporary type 1). 9-11 Actual DED if not pictured. 


If a picture is involved, 
the last two bytes are the 
dictionary reference of the 


Dictionary Entry for Parameter Lists picture table entry 
12-13 Offset in STATIC storage of 
Dictionary entries for parameter lists have symbol table entry 
the following format: 
| 14-15 Dictionary reference of next 
Byte Number Description item in the symbol table for 
this block 
1 Code Byte X'C5' 
| 16-17 Dictionary reference of item 
2-3 Length requiring entry in symbol 
table 
4-5 STATIC chain 
6-8 STATIC offset 
9-10 Assembled length Dictionary Entry for AUTOMATIC Chain 
Delimiter 


11 onwards Contains DCA's 


An entry for AUTOMATIC chain delimiter is 
made by Phase PP. 
Dictionary Entries for Dope Vector 


Skeletons Byte Number Description 
1 Code Byte X'CC' 
Byte Number Description 2-3 Length 
1 Code Byte X'c6' 4-5 AUTOMATIC chain 
2-3 Length 6-7 Pointer to first second file 
entry 
4-5 STATIC chain 
8-9 Pointer to second second 
6-8 Offset in STATIC file entry 
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DED Dictionary Entry 


An entry for a DED is created by Phase PL. 


Byte Number Description 
1 Code Byte X'c7' 
2-3 Length 
4-5 STATIC or AUTOMATIC chain 
6-8 Offset 
9-10 Dictionary reference of 
variable 
11-18 Eight bytes of RDV text 
19-20 DECLARE number 


The LONG bit X'10' of byte 9 is set to 1 
for halfword binary and O for fullword 
binary. 


If the DED requires a picture, the last 
two bytes contain the dictionary reference 
of the picture table entry. 


This entry has the same format as the 
first eleven bytes of a symbol table entry. 
No item will require both types of entry. 
The type required will be chained from the 
Symbol slot in an item. 


DED2 Entries 


These entries are generated when a DED is 
required for the conversion of a temporary 
result. 


Byte Number Description 
1 Code Byte X'c1' 
2-3 Length - 11 
4-5 STATIC chain 
6-8 Offset 
9-11 Actual DED 


Dictionary Entry for FED - Format Element 
Descriptor 


The entry for a FED is made by Phase NV. 
The entry is identical with a DED2 entry 


but with a length of 12, instead of 11. 
The storage allocated will be word-aligned. 
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Byte Number Description 


1 Code Byte X'C1' 
2-3 Length - 12 

4-5 STATIC chain 
6-8 STATIC offset 
9-12 Actual FED 


Label BCD Entries 


Label BCD entries are made by Phase FO. 


Byte Number Description 


1 Code Byte X'CE' 
2-3 Length 
4-5 DECLARE number 
6-7 Offset of the BCD 
in STATIC 
8-9 Dictionary reference of item 


requiring BCD 


These entries are constructed when a 
statement label or a PROCEDURE or ENTRY 
label is mentioned in an ON CHECK list. 
These entries are also made for EVENT and 
TASK variables. Phase PD will allocate 
storage in STATIC for the BCD of the label, 
and place the offset of this in the above 
entry. l 


Dope Vector Entries for Temporaries 


This entry is constructed to indicate that 
a dope vector is required for a temporary 
result. At this stage the bytes in the 
entry contain the following: 


Byte Number Description 

1 Code Byte X'CO' 

2-3 Length 

4-5 AUTOMATIC chain 

6-8 : Offset in the temporary type 
1 stack. After Phase QJ 
this will contain the offset 
from the start of the DSA 

9-10 Dictionary reference of dope 


vector skeleton entry 


11-12 


Length of string 


Record Dope Vector Entry 


This entry is constructed when a variable 
requires a record dope vector. 


Byte Number 
1 


2-3 
4-5 
6-8 


9-10 


11-18 


19-20 


Description 
Code Byte X'C29' 


Length 
STATIC or AUTOMATIC chain 
Offset 


Dictionary reference of 
variable 


Eight bytes of RDV text 


DECLARE number 


Dope Vector Descriptor Entry 


This entry is constructed for a structure 
which requires a dope vector descriptor. 


Byte Number 
1 


2-3 
4-5 
6-8 


9-10 


11-12 


13... 


Description 
Code Byte X'Ccc' 


Length 
STATIC chain 
Offset 


Dictionary reference of 
structure 


Chain to RDV entry or 
DECLARE number 


DVD text set up by Phase JK 


Format of a Second File Dictionary Entry 


Byte Number 
1 


2-3 


4-5 


Description 
Code byte X'Cc8' 
Length of entry 


Statement number of the 
DECLARE or other statement 
giving rise to the second 
file statement 
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Dictionary reference of the 
entry type 1 of the block 
from which the second file 
Statement was extracted 


Dictionary reference of a 
three-byte slot in the 
dictionary. 


Type of second file 
Statement, i.e. the 
function it performs. This 
is the second byte of the 
dictionary reference used to 
designate the function in 
the actual second file 
Statement 


Dictionary Entry for a STATIC DSA 


This entry is made by phase PA (whenever a 
block has its DSA in STATIC). The "size of 
DSA" slot (right-hand two bytes) in the 
Entry Type 1 is used to contain the 
dictionary reference in this entry. 


Byte Number 


1 
2-3 
4-5 


14-16, 
17-18 


19-20 


Description 


Code byte ೫೮81 idi 
Length - 20 

Dictionary reference of the 
next STATIC DSA entry, or 
zero if this is the last 
entry. 

Offset address slot in. 
STATIC for the DSA (set by 
phase PD). 

Size of DSA (set by PT and 
amended by RF). 

Dictionary reference of the 
Entry Type 1 of the block. 
Code byte to be put into 
first byte of DSA. 

Offset of start of DSA in 
STATIC (set by phase TO). 
Head of block's automatic 
chain. 

Not used 


Dictionary Entry for an Error Message 


Byte Number 


Description 


Code byte X'c8' 

Length 

Chain 

Messages number 

Flags: 

Bit 0 on if text to be 

inserted in message 
1 on if statement number 
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UJ 


to be inserted yte Number Description 
2 on if a numeric parameter 


to be inserted 1 Code byte X'C8' 
3 on if a dictionary 2-3 Length 
reference to be inserted 4 Flag: X'00' Text that 
4-7 Severity: X'0' Termin- follows has not been 
ation truncated and is 10 bytes 
X'Uü' Severe or less 
X'8' Error X'01' Text that follows is 
X'C' Warning not to be truncated and is 
9 Variable information in the greater than 10 bytes 
format shown below: X'FF' Text that follows has 
been truncated and is to 
be printed within quotes. 
2 bytes Statement number 5. Variable length of text (in 
(if present) compiler internal code). 


2 bytes Numeric parameter 
(if present) 
2 bytes Dictionary 
reference (if present) 
8. DIMENSION TABLE 
If text is to be inserted it is 
contained in a second dictionary entry 


immediately following the main entry for Each entry containing dimension information 
the message. The format of this second will result in a table being set up. This 
entry is: table is shown in Figure 11. 
DLE MM. RE ep 
| Code Byte C8 | Two-byte length |. Flag Byte | 
}--------------- mE 4--------------—-——---——- ಭವ ಹಾಹಾ ವಾನ ತು ವಾಮ ಜಾ ಹವ ಪಾ ಮಪ ಹಾ —— — Ga eis wi 
| Zero byte |೫೦. of dimensions (n) | Two-byte chain address | 
pe ದವ SS ನಾವಾ ere 
| , VIRTUAL ORIGIN WORD | 
Se ee Sa ee aa 
| One-byte marker | Not used | Lower bound (halfword) | | 
ಬ ಪಕ ರಾಮುಹುುುದುು es a | 
| One-byte marker | Not used |» | Upper bound (halfword) | 
——————————————É—— M 
[eee ನಾವ ee eric ಕಾಕ ತರಾರ್‌ ಹತ್ತೆ 
| | | nth upper bound | 


n multipliers | | 


———— M——— —————— See ee a —Pe— — t€! ಸಹಾ ಜತೆ 
Note: The one-byte marker is: 
00 if bound is fixed point constant; bound is a two-byte binary cónstant, right-adjusted. 


FF if bound is an expression; bound is a three-byte pointer to a second file statement in 
text. 


7F if the bound is inherited and has an MTF function. 
3F if the bound is inherited and is covered by a previous MTF function. 
FO if the bound is specified by an *. 


Figure 11. Dimension Table 


9. DICTIONARY ENTRIES FOR INITIAL VALUES An INITIAL dictionary entry 
and 
The declaration of a variable with an ಫೌ 
INITIAL attribute produces these entries: One or more dictionary entries for 
constants 
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and perhaps 


A second File Statement for any iteration 
expression contained in the INITIAL 
specification. 


The INITIAL dictionary entry contains 
pointers to the constant entries and any 
Second File Statements, and is of the 
following format. 


Byte Number Description 


1 Code Byte X 'c8' 
2-3 Length of entry 

4 Prefix options byte 

5 INITIAL code byte x '79' 
6 Left parenthesis 


7 onwards INITIAL value list (see 
below) 


Final Right parenthesis 


INITIAL Value List 


The INITIAL value list contains references 
to Second File Statements and dictionary 
entries which are created to correspond to 
the value in the input text. 


The list contains the following code 
bytes to identify each associated 
dictionary reference: 


X'F1' Constant iteration factor. This is 
followed by X'00' and the dictionary 
reference of the constant iteration 


factor. 


X'F3' INITIAL value item. This is 
followed by X'00' and the dictionary 
reference of the constant. (The BCD 
of the constant is expanded by any 


imposed string replication factor). 


X'F5' EOB marker. This is followed by 
X'00*' and the dictionary reference 
of the next entry on the chain. 
(This will occur when the scratch 
core storage allocated for building 
the entry is not sufficient, and a 
chain of entries is constructed). 
X'F7' Variable iteration factor. This is 
followed by the text reference of 
the Second File Statement containing 
the expression. 
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APPENDIX D: INTERNAL FORMATS OF TEXT 


This appendix describes the internal 
formats of text at various points during 
the compilation of a source program. The 
appendix is organized in the following 


manner: 

1. Text Code Bytes after the Read-In 
Phase 

2. Text Formats after the Read-In Phase 

3. Text Code Bytes on Entry to the 
Translator Phases 

4. Format of Triples 

5. Text Code Bytes in Pseudo-Code 

6. Text Formats in Pseudo-Code 
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7. Text Formats in Absolute Code 


8. Second File Statements, and the 
Formats of Compiler Functions and 
Pseudo-Variables 


9.  Pseudo-Code Phase Temporary Result 
Descriptors (TMPDs) 


10. Library Calling Sequences 


11. Descriptions of Terms and 
Abbreviations used in Text During a 
Compilation 


Note: The internal formats of text during 
compile-time processing are described 
in Appendix J. 


1. 


TEXT CODE BYTE AFTER THE READ-IN PHASE 


First Level Table (00 to 78) 





TTC AU NCC A AS b We ಯಾ ಬ್‌ AAA cse o 
I [| || | 1 | | | | | 1 । | i+ | | [| 
i I | 1 | | | | 1 | bw ip | | 
| Lo» 4] oR imi} int md | | 
I i ot 131 | | ig?! le iat ial 1*| 
[vs l Ii po poe IN thm | ೪ i> H F6 | Ea 
EFTE E TEA ಟೌ 
| | | | | | [| [ಟ್ಟ aa | | 
Ht ——4-—4 
| || | 1| | 1| ae NE pw. idco ui 
BASES NE NESE 
EO Ee J quei ut IAI ivi 
Joli! | INi | MEM NE AM MEE SON || 
ಚತು M (1 eae sl | | | | | (| | | | 
ಹಾಲ ಸನ ಕ ಶಹಾನ ಭಾಸ anda a ಭಾಜ್ಯ ಜಾ ಜಾ 
| | tf | | | fa |! | | | | | | E | | 
| |! | | | [ಜ| | | I | | | | (| 
NESSIE FISEL: E 
bee |: |: Lot P Jeor d 4 | | | {Bad | 
| |o)! | Be! | | i | | Voz! | 
| i | | d» | (450! | | | 1 | |ಓ ರಿ | | 
| | | | | |, |ರಷೆ | | | | | d» daos | 
b CS DEN ER D RS SE Se SE SN ES E S ಅ SE 
| GE MI ee a EE | od; |! | i | 
gh a2 1 15848188131. 
| todd i b. el | | 0 | i 
€i te ivj | ಇ | [ರಾ | ಆ lw l=! te T 
BL. ಆ 4. 832. 1 0 qup 3 
| | | d 404 d | | | | | | i 
ಅದಿತಿ Us EO leti cie mr tc M UNE Spartan! MN EET VUE ಆಜೂ TOREM. 
| | | | | | | | | | | | | it 
| | | | |! | | | | | | 
| LE cus 13.೬1 | NU lor | 
2 NE | ie eee BOE RE ಶಿಕ್ಷೆ! |1| | | | 
| jejejej2|z]* pete ies) yey | | 
L Td 48 4. 1811... ER: 
| | | | | | | i | im@>t dii | |o! 
MES EUM UN CSS Quer Semen t quale uos UR ತಹ SUN Kan. eM MUS 
| ssi RE Op ಈ ಭಕ್ತ KR RY A [059-3 T 1 
೫|೧ IxIaizizioie fata |o! | | ME 
N ADUE DnA DN ಕ ಕುಸಿತ a 
a|« imivialminty | 1 | | (| | 
puc Cd ae ಹತ CoO et ತ್‌ ತ 
| | | OO | i 1|» | | | E | | 
| | | | | | | | | | | = | 
| | | | | | | | 1 | || | tm | | 
"men esd od 
| Pea ee | [949 || | TB | | 
| | | | | ot |. | | rot d» IÐ | | 
Stele eee ee ae ER 
o e N m ಷ್‌ ಗಿ o m o o6 [4 am e a m m 


[«-Digits-»|«-—----Letters-----»|«--------------Operators--------------»| 
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p------~-}-------}---------- } ------f---------f === tpn 


| 
| 
| 
1 
| 
| 


à 
| 


|FL DEC IMAG 
--}--~----------{ 
|FL DEC REAL 
|FL BIN IMAG 
|FL BIN REAL 
|FIX DEC IMAG 
|FIX DEC RFAL | 
|FIX BIN IMAG | 
| FIX BIN REAL | 
1576 DEC REAL | 
| CROSS SECTION| 


| ARRAY 


| isUB 


bh 


| END BLOCK|CHAR CONSTANT | 


| END ITDO |INTEGER 
Ch 


|ON PROC 
|END DO 
| END PROG |ON 


| END 


A 


| NAME 
ISL 
|su' 
[CN 
|GET 
ICL 

| PUT 

| UNLOCK 
| 

| 

| REWRITE 
| OPEN 


bh 


SS ----—--- |. ------ }---------}----------}---------f ---------- == 


|ASSIGN BY | 


| SN 


WRITE 








|2nd LEVEL} 
READ 


| MARKER 
| DELETE 


| LOCATE 


bp 


um ಓಡು ಜಟಾ Ge Ge ಹಟ ಶಾ ಬ್ರ 


[LIST DO| 


| 
| 
| 
lee ce ae fc ಪಕಕ a 
| 
as ooo ಚ es ceu c 
rcu com ಹ್ಯೂ M ಭಟ | ಭಾಸನ ನ Te 
es }------- }---------} ----------f.--------$-=---=-------4 


p-—--~---} ------- f= ------- 4 —---j--------- 4r eL cL ಪ ಜಂ ಫಷ ಭಜ ರ 


ENTRY 





BEGIN 





{HYBRID | 
[QUAL 

| PROC 

| CHECK 

| ITDO 

| NO 

| CHECK 

| DATA 

| SN2 

| ELSE 
|NO SNAP| 


| DO 


| 
| 

rna c RE Ge ED ಸತ್‌ ಚಕ್‌ D 
| 
| 
| 


{INIT LABEL {IF 


| DECLARE 





GO TO 


| RETURN 





| 

|A 

| 

| CALL 
|B 

|P 
GOOB 
IR 

| 

l 

[ 

| 

I 

| 

|X 


| DISPLAY | 
|SIGNAL | 
[REVERT | 


| NULL 


| 

| LINE 
| 

| 

| 

| 
col 
| 

|E 

I 

|F 

| 

jc 


1 |ALLOCATE| 
DELAY 





EXIT 





— — Hu ———MP— fn — Ao ಮ RR 


pc re Ng ಸಾಸ eps ee Sy a ey tm NS URP UNIS ರಾನಾ ವಾಲಾ ದಾರಾ ವಾತಾ ರಾರ ದಾತಾ qe TE 


{CONTROL | 
C |VARIABLE| 


| 
| 
| 
A | THEN 
| 


8 [SYSTEM 


| 

0 [TO 
| 

D | 


First Level Table (80 to FF) 
B | 


2 |BY 

3 |FREE 

4 |WBHILE 
6 |SNAP 

9 |WAIT 


I5 | 
7 
| E 


|BIT CONSTANT | 


| SS NOE NSS SSG SESE SEES SESS 





CLOSE 


| FORMAT | 


ASSIGN 





STOP 





F | 
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Second Level Table (00 to 7F) (preceded by second level marker byte C8) 


0 1 2 3 4 5 6 7 
[SER oc NETS Toe S Lors SESE l pointe acd S ದಾ ee cO dne ಕಾರಾ ದಾದಾ ಕಾಮಾ ಮಾಮಾ ರಾ ಪ್ಯಾರಾ ee ee ತಾ 
0 | |FILE | i | DECIMAL {OPTIONS {EXTERNAL TAREA | 
brn nnn nnn nn fn fn nnn nnn fn nner a aa ಪ 
1 | [ I | | BINARY | IRREDUCIBLE | INTERNAL |POINTER | 
t------- he 
2 | (LIST { | | FLOAT [REDUCIBLE |AUTOMATIC |EVENT | 
E-—-----——-41-—-----—4---—-—-LE------*[----7-7-7----—- $----------- 4--------- 4--------- 4 
3 | JEDIT |EVENT* | | FIXED [RECURSIVE [STATIC | TASK | 
-———--—-——-d6-----— > LS PS HA — — aman — an —— ae —À qar ap mnan JA — a  —  — ee — A— — ಎ — -— ಆಲಾ — e ee — A — M — + -e am ee Ab —— ou A— ಳಾ ae — — 
4 |TITLE |DATA | PRIORITY | | REAL |ABNORMAL?  |CONTROLLED|CELL | 
auno amm aum o ume dum cupo esto ejos ctas «me emm emu coro SD ಇದ್ದ ಆಜಾ ನಾದ c cum ಅಪಾ ಚಾ A ಇಷು ಇಡಾ ce ಆಯಾ: ಮಾಜಾ, me c-— a — um em na ಪಾಸ am —— ಆಣ aio —— ಆ A — — — ee 
5 |ATTRIBUTES|STRING |REPLY | [COMPLEX | NORMAL 2 | SECONDARY |BASED | 
mn nn fn fn nnn nnn fn nnn fen $----------}------- ~~ 
6 |PAGESIZE 15829 I | [PRECISION 1 |USES2 | [OFFSET | 
I-—------—- t-------- 4 ---——--- 7 f —- pe———----- tT--------- -F-------- 4 
7 |IDENT (LINE | l {PRECISION 2 158753 I | | 
A —— ——— MMMM 
8 |LINESIZE |PAGE i [ | VARYING | ENTRY |INITVAR 1 | | 
p-----7-7-7-——-4--------4-—----- 4-------4-----------—-d-----------d----------4--—----- 
9 | |COPY | I | PICTURE (NUM) {GENERIC {INITIAL |INITVAR 2| 
----—---—- — — ———— ———D—— ——— | 
A |INTO IKEYTO | i [BIT ATTRIBUTE |BUILTIN | LIKE | | 
ma fn nn fn fn fe nn fret ಪಪ ಪ ಪ ೬ +-------~ — 
B | FROM |[TASKOP | | {CHAR ATTRIBUTE | {DEFINED | | 
-------- fen nf fn fn nnn nner 4 
C [SET | {IN | | DIMS (INTEGERS) | {ALIGNED | | 
RR 
D | KEY | | | | LABEL | ORDER |UNALIGNED | | 
A 
E |NOLOCK |KEYFROM | | I | REORDER | PACKED? | | 
p—-----—-4—----—4-——--- ł--—--- fh 
[FORMAT | | | DIMS | | | PICTURE | 
F [IGNORE {LIST | [BY NAME|(NON-INTEGER) |RETURNS | POS | (CHAR) | 
as ದುರು ILL ವಮ ಮು i eta a er ಷಹ ನವ ಸಾವನ ವಾಯ ವತ ಸವ ಸುಮ ಸಾಯನ ಮಮ ವಸು ಪ ಟು ಎಎ ತಾವ ಸವಮ ಮು ಎವಾ ಹೆಸ ಮತಾ ಯಾರಾ ಹೊವ ತು ಹುಟು ಜಾಮಾ | 


iThe EVENT built-in function and pseudo-variable are known externally by the 
equivalent name COMPLETION. 


20bsolete attribute. The second level marker is used only to ensure correct 
warning message transmission in Read-In, and does not appear in text at any time. 
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Second Level Table (80 to FF) 


8 9 A a: 


c D E F 
ಕ್‌ಾಲ E ಧರ EOR ಇ AUCI ERA ರಾ ಅಷಷ ರಾರಾ ರಾ ಶಾ ಲಾ ದ್‌ ರಾರಾ ಮಾನಾ [ವಾತಹರ 7 ದಾದಾ ಜಾಮಾ ಭು 
0 |BUFFERED (| | | MAIN | |OVERFLOW  |CONVERSION|CONDITION| 
mm mf rn rn fn nn fn nf nnn ff ತೆ 
1 |UNBUFFERED | | | | | | | | 
}-----------}----------+--------- = +------ bo | 4--------- 1 
| | | |STRING- | | 
2 |EXCLUSIVE | i | REENTRANT | | UNDERFLOW |RANGE | NAME | 
ļ----------- +---------~ +------—-- j------—- T------ T--—————--- T---------- --------- 1 
3 |KEYED L | l I | | | | 
4 [STREAM | | | SECONDARY | | ZERODIVIDE|AREA ‘| TRANSMIT | 
bh -——-------4--------- 1 
5 |RECORD | | | | | |PENDING | | 
pe———————ÓÀ——————T--——————[e—— e ee ವಾ ಭಾಸನ ಕಾಣ ಸಾ 4-------- 1 
| | | | | | FIXED | | | 
6 |BACKWARDS | | | TASK | | OVERFLOW |ENDFILE 1೦೫೫80೦೫ | 
————————— eh 
7 | SEQUENTIAL | | | | | | | | 
SS pes ho t-——--- | SE +---------4 
i | | i | SUBSCRIPT | | 
8 |DIRECT I | | ON-BLOCK | | RANGE |ON RECORD | | 
|-----------}----------} -——--- --——-- f+ -- ಹಾರ್ಮ +---------- 1-—------- pe 1 
9 |PRINT | | | | | | | | 
----------- he 
A |ENVIRONMENT | | | | ERROR |END PAGE | | 
E--———--——--4-----——---------------------41------4------—--- T-----7-7-7-7-- +------—--| 
B | INPUT | | | | | | | | 
ee 
C [OUTPUT | i | | | FINISH | KEY |NOCHECK | 
————————À ff fff 
D | UPDATE | | | | | | | | 
bof ——————— 
| | | | | | UNDEFINED | | | 
E |TRANSIENT | i | | | SIZE | FILE | | 
p pee mme +—------- [5-6 poe paeten kos J 1 
F | 1 | | i | | | | 
LlInrlzz——L-l- —————————Élcllllced.l1l.-c2cL-ccl-c-ocecc a ಸೂ ie ಮಾನವ, Mo ಹಾ ತಾಜ, d 


2. TEXT FORMATS AFTER THE READ-IN PHASE 





In the following statement formats the code 
bytes SN, SL, SL', POS, anā OB have the 
following meanings: 


SN statement number 


SL statement label 


SL‘ initial label 


POS following SN is a 2-byte statement 
number 
following SL is a 2-byte 
dictionary reference of statement 
label or entry type 1 


OB prefix options byte, specifying ON 


conditions enabled for the 
statement as follows: 
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p CU PETER ee ES BP a ie aN 


| BIT | ON CONDITION I 
ba a nnn nf 
OVERFLOW 
UNDERFLOW 
ZERODIVIDE 
FIXEDOVERFLOW 
SUBSCRIPTRANGE 
SIZE 
CONVERSION 
STRINGRANGE 


qt —À M — ಖಾ ee — — 
JOoutcutmo 
EBA———————— 


| 
| 
[ 
i 
! 
| 
i 
| 
| 
i 
[ 
i 
| 
i 
l 
[ 
| 
t 
|| 
t 
[ 
| 
t 
i 
i 
| 
i 
c 


The abbreviation SQUID means an 
identifier, possibly subscripted and/or 
qualified. 


PROCEDURE Statement 


The format of a PROCEDURE statement is as 
follows : 


Byte Number Description 


1 Code byte SN or SL. 

2-3 POS 

4 OB 

5 PROCEDURE 

6 Block level 

7 Block count 

8-10 PROCEDURE-BEGIN chain 
11-13 DECLARE chain 

14-16 ENTRY chain 

17 Left parenthesis - optional 
18... Format parameter list - 


optional 

Right parenthesis - optional 
Attribute marker - optional 
Attribute code - optional 
Attribute list - optional 


Statement terminating 
semicolon 


ENTRY Statement 


The format of an ENTRY statement is as 
follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 ENTRY 
6-8 ENTRY chain 
9 Block level 
10 Block count 
11 Left parenthesis - optional 
12... Formal parameter list - | 


optional 
Right parenthesis - optional 


Attribute marker - optional 


Attribute code - optional 
Attribute List - optional 


Statement terminating 


semicolon 


BEGIN Statement 


The format of a BEGIN statement is as 
follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 BEGIN 
6 Block level 
7 Block count 
8-10 PROCEDURE-BEGIN chain 
11-13 DECLARE chain 
14 Statement terminating 


semicolon 


END Statement 


The format of an END statement is as 
follows: 


Byte Number Description 

1 Code byte SN or SL 

2-3 POS 

4 OB 
ends a PROCEDURE or BEGIN 
block; END2 ends an 
iterative DO block; END3 
ends a non-iterative DO 
block 

6 Block level for the 
containing block 

7 Block count for the 
containing block 

8 Statement terminating 


semicolon 
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IF Statement Statement terminating 


semicolon 
The format of an IF statement is as 
follows: 
Eyte Number Description ON Statement 
1 Code byte SN or SL 
The ON statement takes one of the following 
2-3 POS formats: 
4 OB 1. 
Byte Number Description 
5 IF 
1 Code byte SN or SL 
6... Expression 
2-3 POS 
THEN 
4 OB 
Statement or Group 
5 ON 
ELSE - optional 
6 ON Condition 
Statement or Group 
optional 7 SNAP or NOSNAP 
Note: The semicolon preceding the ELSE has 8 Statement or block 
been deleted 
2. 
Byte Number Description 
DO Statement 1 Code byte SN or SL 
2-3 POS 
The format of a DO statement is as follows: 
4 OB 
Byte Number Description 
5 ON 
1 Code byte SN or SL 
6 ON Condition 
2-3 POS 
7 System 
4 OB 
8 SNAP or NOSNAP 
5 DO or ITDO 
6 cv 
ASSIGN Statement 
7 BKC 
8... Squid ' The format of the ASSIGN statement is as 
follows: 
DO equals 
Byte Number Description 
Expression 
1 Code byte SN or SL 
TO 
2-3 POS 
Expression 
4 OB 
BY 
l 5 ASSIGN or ASSIGN BY NAME 
Expression 
6... Squid 
WHILE 
Comma - optional, 
Expression may be repeated 
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Squid - optional, 
may be repeated 


Variable number of bytes - 
optional, may be repeated 


ASSIGN 
Expression 


Statement terminating 
semicolon 


WAIT Statement 


The WAIT statement has the following 
format: 


Byte Number Description 


1 Code Byte SN or SL 
2-3 POS 

4 OB 

5 | WAIT 

6 Left parenthesis 
7... Identifier 


Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 
Comma 


Further optional parentheses 
and expressions 


Right parenthesis 

Left parenthesis - optional 
Expression - optional 

Right parenthesis - optional 


Statement terminating 
semicolon 


CALL Statement 


The CALL statement has the following 
format: 


Byte Number Description 


1 Code byte SN or SL 
2-3 POS 

4 OB 

5 CALL 

6-8 CALL chain 

9 Identifier 

10 Left parenthesis 
11 Expression 

12... Right parenthesis 


Left parenthesis 
Argument List 
Right parenthesis 


Statement terminating 
semicolon 


GO TO Statement 


The format of the GO TO statement is as 
follows: 


Byte Number Description 


1 Code byte SN or SL 
2-3 POS 

ü OB 

5 GO TO 

6... Squid 


Statement terminating 
semicolon 
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SIGNAL and REVERT Statements 4 OB 





The SIGNAL and REVERT statements have the 5 DELAY 
following format: 
Byte Number Description 6 Left parenthesis 
1 Code byte SN or SL 
Tewi Expression 
2-3 POS 
4 OB Right parenthesis 
5 SIGNAL or REVERT 
Statement terminating 
6 ON Condition semicolon 
7 Statement terminating 


semicolon 


RETURN Statement 


DISPLAY Statement 
The format of the RETURN statement is as 


follows: 
The format of the DISPLAY statement is as 
follows: Byte Number Description 
Byte Number Description 1 Code byte SN or SL 
1 Code byte SN or SL 2-3 POS 
2-3 POS 4 OB 
4 OB 5 RETURN . 
5 DISPLAY 6 Left parenthesis - optional 
6 Left parenthesis dus Expression - optional 
Tess Expression Right parenthesis - optional 
Right parenthesis Statement terminating 


semicolon 
Left parenthesis - optional 


Squid - optional 
Right parenthesis - optional STOP, EXIT, and Null Statements 


Statement terminating 
semicolon The format of STOP, EXIT and Null 
Statements is as follows: 


Byte Number Description 
DELAY Statement 


1 Code byte SN or SL 
The format of the DELAY statement is as 2-3 POS 
follows: 
4 OB 
Byte Number Description 
5 Statement identifier 
1 Code byte SN or SL 
6 Statement terminating 
2-3 POS semicolon 
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INITIAL Label DECLARE Statements 


The format of INITIAL label DECLARE 
statements is as follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 INITIAL Label DECLARE 
6-8 DECLARE chain 
9... INITIAL label 


Statement terminating 
semicolon 


DECLARE and ALLOCATE Statements 


The format of DECLARE and ALLOCATE 
Statements is as follows: 


Byte Number Description 
1 Code byte SN or SL 
2-73 POS 
4 OB 
5 DECLARE or ALLOCATE 
6-8 DECLARE chain or ALLOCATE 
chain 
9 Declaration list 


Statement terminating 
semicolon 


FORMAT Statements 





The format of the FORMAT statement is as 
follows: 


Byte Number Description 
1 Code byte SN or SL 


2-3 POS 

ü OB 

5 FORMAT 

64: Format list 


Statement terminating 
semicolon 


Format items are replaced by one-byte 
codes 


OPEN and CLOSE Statements 


The format of OPEN and CLOSE statements 
follows. 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 OPEN or CLOSE 
TIS File group list 


Statement terminating 
semicolon 


READ, WRITE, GET, PUT, REWRITE, UNLOCK, and 


DELETE Statements 


The format of READ, WRITE, GET, PUT, 
REWRITE, UNLOCK, and DELETE statements is 
as follows: 


Byte Number Description 
1 Code byte SN or SL 
2-3 POS 
4 OB 
5 Statement identifier 
6... Option list 


Statement terminating 
semicolon 
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3. 


TEXT CODE BYTES ON ENTRY TO THE 
TRANSLATOR PHASES 


0 1 2 3 ü 5 6 7 


EDT ನ UN uum o ರಾನಾ RM NE EST RM ವಾರಾಶ್ರಾ ದಾರಾ ನಾ ಕಾಶ ಜಾ a ವಾರಾ 


I | | |COMPILER | | | | COMPILER | 
|DICT. REF. |FILE | | FUNCTION | |FILE' | | FUNCTION' | 
bom fn nn nnn nn nnn nnn fr nn nn fn nnn nn fen rn rr rn fon nnn nf 
| | | | [COMMA ļ| í |DO EQUALS | } | 
TS fn fn nn nn nnn fe ------f 
I | | |COMPILER | | | | COMPILER 
| | LIST I | FUNCTION |FCOMMA |LIST' | | FUNCTION CALL’ | 
| | | | CALL | | | | | 
SE pecu ete fee eee eee eee ಇತ್ತೆ 
| | EDIT | EVENT | | ¢ |EDIT' | | - | 
bh 
| COMPILER  |COMPILER| | | COMPILER | 
| TITLE |DATA | PRIORITY |PSEUDOVAR |FUNCTION|DATA' | | PSEUDOVAR' | 
| | | | |COMMA | | | | 
bo — 4--——----- 4--—-------—- +-------~ +-------- ಜವ ಹಲವವ 1 
|ATTRIBUTES|STRING  |REPLY | [ ) STRING’ | < | + | 
SEES A a a a SES ESS pe cm SLES SEE A, 
| | | | | COMPILER | | | | 
|PAGESIZE |SKIP | | ERROR | ASSIGN | | | NDX | 
bo 4 
| | | BUY | | | MULTIPLE | | | 
| IDENT |LINE | CHAMELEON |BUY ASSIGN|ASSIGN |ASSIGN | 2 4< | / | 
on fen pn rn RT fn nnn fn nnn nnn fen re 1 
|LINESIZE  |PAGE | | ARCO | DROP | TMPD | LEFT {OFS | 
pean ff np nnn eemper remm fe nnn nf eee nn fn nnn nnd 
| | ೦೦೫೫ | | | || | LD |, 3-7 | * | 
pees ವಿ ಎಬಿಪಿ ದವಾ ಎನ ae 
| | | | BUYB | | | | 
| INTO |KEYTO | | PSEUDOVAR |CALSEQ |TT | | PSEUDOVAR' | 
bof ——— 
| I | | END | | | | . | 
| FROM | TASK |LIST MARK [LIST MARK | | | IMP | x | PREFIX - | 


—————— f= 


| SET | RPL {IN | FUNCTION [|CNVA | RPL' | | FUNCTION! | 
bof rr rrr = 1 
| | | | ARGUMENT | | | | | 
| KEY | | | MARK | 8 | | > | PREFIX + | 
mn a nan fan nr fn hn nt terror rt 
{DEFINED | SUBSCRIPT | [LITERAL |DEFINED | | 

| NOLOCK |KEYFROM |SUBSCRIPT | | CNVB | CONSTANT | SUBSCRIPT' | SUBSCRIPT' | 
p-——-—--—-—-4------——4-----—--—-d----------4------—d----—--4----------4--------------4 
|FORMAT | | | | FORMAT | | | 


| 
| IGNORE (LIST | | h X | LIST* | « | + | 
be EEEE EE EEN E R S ———— m Pl ನಾ ಜಾ ಹಾಯಿ ಹೂಡಾ TL a ಭಾಷಾ ಮ J 
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1 
| 


1820 

| PROC" 

| 

| BEGIN’ 
| 

| ITDO' 

| 

| Do* 

| 


[END 2700 


| 

| CALL 

| 

| 

| P* 

| 

| 

|END DO 
| END 
|G" 


| UNLOCK 


|SN 
| 
{SL 
| 
|CN 
|GET 
[CL 
| PUT 
[21 


| WHILE' 

| SNAP * 

| WRITE 
|SYSTEM' |E' 


'|TO' 
| 
| BY' 
| 
}--------}-------}----— }------ ~~~ --- =f fan 
| READ 
[CE EE cO MEE cc ಚಕಕ ಕೇ 
— — —--—}------}-----—-- f---------}-—--------}-------------4 


}—-—----}------- }------}------} -------- ff ----------4-------------d 


[BEGIN | SORT 
ES nnn nr nn nnn nr nn fon nn | 


| 
| 
| 
| 
| 
| ITDO 
| 
}--------}--—---- } ----}------ }-------- der ore eee ei --- === ff 
{DO 
| 


| RETURN | PROC 


| CALL 


A ----—}------f -------- prr fff 


JA 
p--------}-------}}------ f- -----}-------f---------} ----------d------------ 4 


|B 
}--------}-------4------ }. -----}-------- 4 -- o c p ---------- f= 


|P 
bh 


IR 
}--------4-------}-~---- }------ EE ---------$ ---------- f= == === 
|G 


| SIGNAL | GOTO 
| 


| LINE 

| PAGE 

| SKIP 

| DISPLAY | GOOB 
[COL 

|E 

|REVERT | 

|F 


aaan Pn a a a a a ಕಾವಾರರ್ಯರಾರುರಾರಾ ಕಾ ಕಾರಾ ಕಾಕರ ಕಾಹ 


0 |TO 

1 |ALLOCATE| 
4 [WHILE 

6 |SNAP 

8 |SYSTEM 

9 [WAIT 

A |THEN 


2 |BY 
3 |FREE 


5 
7 


OR ON 
[CROSS SECTION| 


| ARRAY 
| FORMAT 


|IF' 


|END BLOCK | 
|END PROG 2|NOSNAP' 


|END PROG 


| 

| 

| OPEN 
|c' 
|CLOSE 


|LOCATED |REWRITE 
SR SS RE 


| DELETE 


[cv* 


| NOSNAP | 
p-----~--}------- }-----— ------}-—------ 


{IF 

152 

| ELSE 

| FORMAT | 
LI2Ill-l2-Ll22l-.--22Ll.2----2-q-.-c221.2.--2----2-1.--—2----1--—----2-241..—-—222-222--.-J 


| 
| SELL 
| BUY 
p ee ES NS aaa I NEU S 


Hd 


|ASSIGN |BUYS 


| NULL 
jc 


B | DELAY 
c [cv 

D |EXIT 
F |STOP 


E 


425 


Appendix D: Internal Formats of Text 


4, FORMAT OF TRIPLES 


The triples produced as output from the 
translator phase each consist of five 
bytes, an operator followed by two two-byte 
fields. Each of the two-byte fields may be 
occupied by an operand, which may be a 
dictionary reference, a code byte or code 
bytes, or a numeric parameter. Two zero 
bytes in place of a dictionary reference 
operand imply that the operand is the 
result of previous operations, and that its 
type and location are described in a TMPD 
in the text. 


The number of operands and the fields 
which they occupy depend upon the type of 
triple. The following table contains this 
information for all the triples used in the 
compiler. 


[CUENTEN E AR ME OU TECTA SIT TA ate CE V T ಭಾಸ ಜಸವು ಇ 
€: TYPE ane a 1 — 2 
| | CODE | | | 
EL ST ae 
ರಾನಾ ANG ಚಟ್‌ 
EE SN ETS SS 
E ಕ್ಸ್‌ Ded a ಟಿ 
ಜಾ ್‌ಕ್‌್‌ಶ ಚ 
ese Qon oe ರನನ ಇರ್‌ 
uuo ಕಾ m er ERR 
o cR UA C ಟ್ಟಿ 
PO HERI Ur ಅ ದ್‌್‌ 
p. coe n dace eee 
rr E usq 2 Sees 
ce ರ a 
a NIE MM EE MED 
rH MESS ಅಶ ee 
prm me Lus o ERAN. d 
ಕೋ ರ RUE ಭಜ 
um ^ a ಜದ ಜ | 
oo C ಈ a CMM 
ac ae Se 
Dino o a one 
LE SLL J 
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T T Aoc E ee 1 
| TASK | 4B | - | - | 
el uk 
| RPL | 1C | - | ~ | 
ee $----4---------}---~~----4 
| IN | 1D | - | |OPERAND | 
~--~------------ ł----ł}---------ł--------- 
| KEYFROM | 38 | - |OPERAND | 
kf 
| FORMAT LIST | 1F | - | - | 
bo ————- $-~~-4---------}--------- 
| UP | 20 | - |OPERAND | 
a ae ——— ಪಮ es — € ee 4-.---4--------- ಜಹಾ 
| GIVING | 21 | - |OPERAND | 
}----------~-—---- } ---- - 
| DOWN | 22 | - |OPERAND | 
~--------------- hf 
| EVENT | 23 | - |OPERAND | 
--~----~--------4----}-~-------4--------- 
| PRIORITY | 24 | - | - | 
—————— ae amen — — pI---------]?[*1'--------- 
| REPLY | 25 | - |OPERAND | 
l——  — --------- ————— a ಆಹಾಹಾ oe 
|BUY CHAMELEON | 27 | - |OPERAND | 
bh 
| MSA | 28 |OPERAND 1|OPERAND 2| 
}----------------}---- }---------}--------- 
| MTA | 29 |OPERAND 1|OPERAND 2| 
}---------------- j----4--------- 4--------- 1 
| DEFINED | | | | 
| SUBSCRIPT | 2E |OPERAND | - | 
-----------——---ł----ł---------ł}--—---—--4 
|NULL-FUNCTION | 2F | - | - | 
€—— M 
| COMPILER | | | | 
| FUNCTION | 30 |OPERAND | - | 
}---------------- ł->--ł--------- ł+-------- { 
| COMPILER | | | | 
| FUNCTION CALL | 32 [OPERAND | - | 


€——— — PET 


| COMPILER | |. | | 
| PSEUDO-VARIABLE | 34 |OPERAND | - | 
|BUY ASSIGN | 37 |OPERAND 1|OPERAND 2| 
paar na nnn nn ಜಾ ಬರಾ ರ 
| ARCO | 38 | = | = | 
| |SUBO | 39 |OPERAND 1|OPERAND 2| 
ehh MMMM 

| PSEUDO-VARIABLE | 3A |OPERAND | B | 
| | SSUB | 3B |OPERAND1 |OPERAND2 | 


hh 


| FUNCTION | 3C |OPERAND | - | 
Smead ——À— € $ ---------4 
| | 5581 | 3D |OPERAND | - | 
}---------------- $----4--------- }--------- 1 
| SUBSCRIPT | 3E |OPERAND | - | 
hl 
| NOP | 3೫ | - | - | 
| | PTCH | 40 |OPERAND 1|OPERAND 2| 
n—————— — ————— + ———— 4 
| COMMA | 41 | - | * | 
Lame mm a ae dm dom se ee ಮವ J 


*This triple may have two operands in 
format lists. 


pp 


| FUNCTION COMMA | 42 | - |OPERAND | 


kk 


| COMPILER | | | | 
| FUNCTION COMMA | 44 | - |OPERAND | 
[----------------4----$---------}--------- 
JACT | 45 |OPERAND 1[OPERAND 2| 


t 1 
[COMPILER ASSIGN | 46 |OPERAND 1|OPERAND 2| 


—— ae — À—— —— ಅಪಾನ — — e —-—-4---------— ————— € ee 


|ASSIGN | 47 |OPERAND 1|OPERAND 2| 


t 1 
|OPERAND | 


———— Á— — — — «— gno m — cu a —— eu — aue ajo c — ಅ jo ena —"— —ÀÀ —À — — — an À ರಾ — — —À —9À— 


| CONCATENATE | 49 |OPERAND 1|OPERAND 2| 


-——————————————-—----4---------4--------—- 


` |BUY B quA] -  jOoPERAND | 


}----------------}----}---------}-—------ 


| OR | 4B |OPERAND 1|OPERAND 2| 


be 


{AND | 4D |OPERAND 1 |OPERAND 2| 


ದಾವ i] 
| NOT | 8೫ |... - |OPERAND | 
se aa Fan ನ್‌ ನರನ ಕ ea aca 
12757' | 52 | - | - | 
JEDIT’ I d - l -> | 
| DATA‘ | 56) .- | €] 
Se IEEE xm: cdd, ಜಟ ಭಾರತಾ, 


| STRING" | 55 | - i - | 


—-—-——---——--------jq----1--------- RE er ಭೂ qr cms curi i 
| STMPD | 56 |OPERAND 1|OPFRAND 2| 
ek ಮಮ 


| MULTIPLE ASSIGN | 57 |OPERAND 1]OPERAND 2] 


hh 


| TMPD | 58 |OPERAND 1|OPERAND 2| 


bh 


| IMP | 5B |OPERAND 1|OPFRAND 2| 


bh { 
| RPL" | 50 | - | - | 
—————-——---——-----4--—1--------- ಮ aie aos 


| LITERAL CONSTANT| 5E | - |OPERAND | 


-——4---------4-----—4 


| FORMAT LIST' | SF | - | = | 


|DO ECUALS | 61 |OPERAND 1|OPERAND 2| 
hh 
p | 62 | - | - | 
| ERROR | 63 | - | - | 


Q—— — M S 


| UPSIDE-DOWN | | | 
| COMMA | 64 |OPERAND 1|OPERAND 2| 


| LESS/EQUAL | 65 |OPERAND 1|OPERAND 2| 


Aou ಭಾ ಫಾ —— ಫಾ ಬಾಜಾ ಜ್ಯಾ ಜಾ up mp Em ಭಾ 


| GREATER/EQUAL 


= MEE ae 


1 
| 67 |OPERAND 1|OPERAND 2] 


ann nnn nn ಕ್ಕಿ ಪ ಪ ಪ ಸಾ 1 
| LEFT | 68 |OPERAND 1|OPERAND 2| 
—————-——-——-——--L.---i4--------- l-— ವಷ 
[NOT EQUAL | 69 |OPERAND 1|OPERAND 2| 
—-—-—-——-—---—-----4$---- ee ea uo ieee aman — an m ans e ಆ 
| EQUAL | 68 |OPFRAND 1|OPFRAND 2| 
-————--—---—-----i---- ತಾ —— — ÀMÀ M ao a eee ಅನ €t ಹಾಸ 


| GREATER | 6D JOPERAND 1 |OPERAND 2 | 
iL. 


| DEFINED 
| SUBSCRIPT' | 6E |OPFRAHD | - | 


bh - 


| LESS | 6F |OPFRAND 1|OPERAND 2| 


| COMPILER 
| FUNCTION! 


t 
| COMPILER 
| FUNCTION CALL" 72 |OPERAND 


-—-—--——--—-—-----[L----4---------4--------- 


| MINUS | 73 |OPERAND 1|OPFRAND 2| 
+ 


[ 
| COMPILER 
| PSEUDO- VARIABLE' 


+ 1 
|OPERAND | 


——-——------—-—-—--4----4---------4--------- 


| DIVIDE 77 |OPERAND 1|OPERAND 2| 


t ł 
| PSEUDO-VARIABLE'| 7A |OPERAND | - | 


KERES ನಾ ಎವ ಎಎ EE 


|PREFIX MINUS | 7B | - [OPERAND | 


—--—--——--—-------—--4---7---7---b4-------- 
| FUNCTION' | 7C |OPERAND | - | 
ಹಮಹಿ -—--4--------- cl uL 


|PREFIX PLUS | 7D | - |OPERAND | 


~~ -~------------}----4---------f------ 4 


| SUBSCRIPT' | 7E |OPERAND | = | 


}----------------}----}---------4--------- 


| EXPONENTIATE | 7F |OPERAND 1]OPERAND 2] 


bd 
| TO peo) - | - | 
hh 


| ALLOCATE | 81 | - |OPERAND | 


be 
[BY |8221 - | - | 
}----------------4----4---------4--------- 


| FREE | 83 | - |OPERAND | 


1 i----4 + 
| WHILE | 84 |OPERAND | - | 


dk Si i es EES 
| | *೦೫ | 85 | - |OPERAND | 
—-—————-——-——-————L-.---4--------- —À—— PRAE 
| SNAP | 86 | - |OPERAND | 
—————————————--d----4--------- Saale e s ae 
| DELAY | 8B | - |OPERAND | 
a ta ane aS ವಾನ es ev -——4--------- ವೊ 


1 | 8C JOPERAND 1|OPERAND 2| 


ಮನಾಮ — € mu SRN 
| EXIT 1 8D | - j - i 
| STOP = | 8F | - | - | 
}----------------}---- ---------}--------- 


| LINE | 90 | - |OPERAND | 


~--~------------}---- }---------}---------4 


{END ALLOCATE | 91 | - | - | 


bo 
| PAGE | 92 | = | = | 
[SKIP 11113 [5^ |  - [orman | 


Lemme meme meme S 
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3 
| 


C9 
| CC |OPERAND 1|OPERAND 2| 


{ C7 


[EE ವಾಸನಾ ಸಾರನಾರಾನ್ಯ ಭ್ಯ pue memEMT 


| WRITE 
}----------------4----}---------4---------] 


| READ 


p----------------4----}---------}--------- 


icv! 
bh 


| STATEMENT NUMBER| DO |OPERAND 1|OPERAND 2| 


| OPERAND 
| OPERAND 
| OPERAND 


96 
bo 
98 


95 
bh 


| 97 | 
bh 


xd uic ರಾ ಗಾ 


| DISPLAY 
| COLUMN 
| SIGNAL 


|E 


ಕಣ್ಣ ಕರ e aa ಪ್ರ ಕಲ ada iada sasin aaka aka stele siada Ghee py ey ag pe ye een Ca a 
ಜೆ. ಬಂ ಬ್ರೀ a T eel teed a 

| ೧| ೧ | ೧ |! IQ I | I i | | | | l l | | | | O I i | 

ig | Zz | 2 | ಔ | |2| | | i 1 | | | | | | | | | | 2 Ie (a (B 1 & | | | | 

He FE d `ಸ | ಇ. | | |ಡಹ | E d d dg d d dor dr dor d ag Er db gr NUD NONE NE Sa | | | 
IBIBIBIBI RED '|'|'|'|'|'|'| || | | BEEBE || 

IA IAIA | ಮ | Ig! l | | | | I | i l | t | (eta 18 | ದ | & | i i 
io1ror1ro1olt 101 1 1 | |] | | | | -t | F | ! IOIOIOIOIOI I | 
et tt te a ta ta ಕ te ತಸ ಸಾ ta tte ter tat et et 

| jet | | | | | | || | i | i | l | ( | | I | l | [| | l | | 

l | | i | i | | | I | | | | | | | | | | | 1 | l | | t | 

| iai! I | | i | | | | | | i 1 | | | | | | | | | | | i | 

i |2| | | | | | | | | | | | | | | | i | | | l | | 1 1 | | 

| | ae Bao || | |1| | |1| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 

| | i | | i | | i | i | | | i ! | i 1 | | | | l | I | i 

| 1m | [ | | | | | | | | | | | | | | | | i | | | | | | | 

| IA | | | i | | | | | | | | i | | | | | | | | | | | i | 

| 1೦ | | | | | | | i | | | L | | | | | | | | | [ £ | | | 
dece cie OS EO ST cT ತ್ನ 

l i 

eicio!izsxiovivoit-ioioi«imialt&im!idiszimialmiuioiunvir!oi!inm If | 

I8 ra ia ta la ra MIA QAIAI AIAIANAI AI HVNIAI ಬ | ಬಿ IA om | ಓ te | fm. P5 | fs |E | fu | 

| | [ l ! i | | | L | L 1 | | | L | | | | | | | i | | | 
+ HH et tt te tt tet ta ta tt tet a tet et et alaala 

| | | i | | | | | | | | | | | | | | i | | ! i | | | | | 

[ {| |x | | | i i | | l 1 | | i | | | | | | | i | ! i | 

| {| IAI | | | | | | l | | | | | | | | | l | | | | ! | 

| || | ! IRI | | | | i | i | | | | | | | | le | | | | | 

| ial | l IMI | | | | | | | | i | | | | | lo! | | | | 
| | | l | ici | | | | | | | | | | | | I | | {al | | | | 
[ | | Iz! | | | | | | | | | | | | | IN | | | l || [ i | | 
! LE 1 i | | | | | | | | | | | | | is | | | | L5 | IZ! | | 
l Iz Co | | & | l | | | | i | | | MON NSN RY, i | | | lo! i i 
141 181 181 et IET TF ouis] ESS delet sels 
| tel tH} | H | | 1o | | A | | | fm | - | E | f 1 Ay | ನಿ | | & E | 18 | & | | 
Io (HIN ITA! | & | i IQ l |& ia | E | | | | | | ig iH | | | 1 fet | 
Bia SSeS Bl 111.118 8 818/1೬ || 
।ಓ0|್ತ| 0 |೦ಟ | ೦ | o IOIR IA E | & | lolo |8 lU E E: MIM iilam im | E IQIHI® ಐ I 
et ee eee eee ele cee eae cae dus a SIE RES SS TOT BAS ನ ಕ ellen cw anh ee ಸಾ coe ಸಾಚಾ eee eee ome ಪಾ eee ea comme ಜಾನ come ಪಥಾ ಖಾಸ elton meee ಪ 
ಕಣಾ ರಾದ ಹಾಕಾ ದಾ ಅಳ ಲ ಸಲ ಕತ ಳಾ ಹಾಲಾ ಅಣ್ಣಾ ಸವಾ ಲ ಸಣ ಳಾ eemper ಹಾ ಹಾ adele clued weed sfonde wend spe shoud unl suds hand shud ನೌ 
ಚತ ME MNMNENENRN ಸಹಕ ESE NNNM MEX 
IQI | |a lg i aima ig ia 1g ia lg ia la | 8 lg fattmataratat i ia!iaioaiaiat!al!n!i 
(2 | | 1a | | ಸ್ನ | ಪ್‌ | IZ | ial 142124 | | ಸ | ಶ್ತ | ಶ್ರ NENA | ಪೃ | 1 ಸ | ಜ್ರ | ಜ್ತ | ಔ್ರ | ಶ್ತ | ಶ್‌ | ಜ್ರ | 
| ನು | | | | IK IS Isl Ig Ls | | S eo | & em a [cid E Cll NN LS | d a | « | 
|, i | || I8 i | l i | | | i 1% | (e do |g ಯ 1m | | [maim | & | B | | 1% | 
| | | im I | | ig ig HI Hi I HP HIB IB He ("ಯ IMI || | [ei | | | B | (ಜ|. | ಬಿ | 
et | ESE SSS 85S 886588888] | 181818185181518] 
LOL .1—191919]919]9]9]9]9]9]9]9]912]9; 2] 912 1.1.1 2121-1] —7.-—.-———4 
; yt 1|! |» |» | | | | | | [| | [|1| | | | | | | | tet | | | | |I 
ಹ ಹಟ E ee Pee eee ee cece "uM. 
411 ೪೪೫1೪೪೩೪೬೩೪ ೪81 a e ಊ ೪೪೫೨3 a ETE 
A 
i i [ | | | | | | | | | | | {af l | | i | 1 A E^ [à | l | | | IA | 
| i ! | || | | | | | | | | | IOI | i ! ! | IOIOI!Oo! | i | | lol 
|o | < | ig lo HNN iS ini | c | oo 1 0 | a [0 |ಛ್ರ |೧| | | em | wn Im IDIA lo | sa im |೮| ಇ | = | 
WS kad a os 2122122. 121ಎ ಎ [2.2.20 a 
A ಅ mje ತ ಕಷ್ಟ ಸ in fe fe ಒಟ. ಹಾ ಆತೆ. ಹಾಹಾ ಆಣ. ಹಣಾ ಚಾ ಜಾ ತಾಚಾ me te ತೆರ ಚಾ ಅತ್ತೆ ಜಹಾ ತಯ ಜಾ ಹ್ಯೆ ಹಾ ಅಡ tn tet ಜಹಾ dee ad ade nde es 
| | | l l | l | i | | | | | | | | | | | | | l i | | | | | l | 
l | | | | | | | im | | | | | | | | | l | | | | | | | | | | | 
l | 1 | | | | i8 | | | | | | [ | | | | | | | | | | | | | 
| | [ | I i i | | | | | i | i | | | | | | | | | | | | i 
| | | | | | l | | ! | | | | | | | | | | | rE [ | | | | | | | 
dd ied ddd 
| | | | | | | | | | | | | | i | i | | I i if | | l i l | | | | 
| l | ! | | ! | Ilo! | | “| l l | | | | | | I> | | ! | l | l | | 
| | | | [ | | | | | | | | | [ | | | i | | Im | | l i | | | | | 
1 4 | i | | | ia | Lg | I | i | | i | | | | E I [ i im Pe | | fe | 
itm | | i [ | Iœ | ID l lo! I | Id! | | l | imi! | | is i | | || | 
|&g | t | 158 | |p| [9 | IH IZ | iste | | | 1019 ar I I | | | | l | |e l 
te | I | Hi 1೯ | | | |1| B MN EMEN | i» 10i0!BmI! ! ಣ!೪% । fe | ೫. iH! 
|W | | l | | fe | 1o I '೧1೪೮|1ಔ ।|ಔ |ರ೮ |ಜಿ |ಓ | ID: iG IE IOIBIZIOIOIOI»PIITI 
lo im LIO Ila iO iminmximidimcicocioimimimiuoimomi»iuimimninuidol!trmi!ious!s im irt im | ಡಸ] 
Bue de cee ಅತ wre ತ are ಅತೋ ere eben come ಅಯೋ cee ಅಹೋ ಲಾಲಾ ಅಸೋ ere ಹೋ emer SE eu VEMM ಚೂರಾ ಕೋ ರಾ ಹೋ, ಲು MOL Vet tsp UMEN tiM EE LEE ಜಾ ಅ didi 
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5. TEXT CODE BYTES IN PSEUDO-CODE 


0 1 2 3 4 "B 6 7 8 9 A B C D E F 

poccpeve——,4——— MA cians Weigh ಅಸಾ ನರಾ caecum duiaiauM m: Qaia ವಾ bat fraise: Oretaaee) S a, cand ಅರಾ | 

0 |DCVO |OSM1 |BGPE |BLBS |LCR |LCDR|LCER|LM |BCTA'|LH |LA |CLI |CLC |TR | [INST] 
bh ff -—- 

1 |DCV1 |0SM2 |EOB |BLBS'|BCR |SPM [CLR |SLA |BC  |CH {CL |MVI |MVC |TRT | |MVCL| 
NS 4 ~~~} -----f ---- 4 ----4-- --- b ----4------4--4-—-4 

2. 1೧೮೪೫2 JALLOC |PCC |BUYS |HER |LTR JALR |SLDA|DCF |AH |AL |NI [MVN |PACK | | | 
--—7-7*--—------- RE SN, SN SS SS SS 4-4- 

3 |DCV3 |DCA3 |CHSM |PINS |HDR |LTER|SLR |SLDL|BCTA |SH |SL [OI |MVO |UNPK | | | 
SN SS ----- }---- 4 -----f ---- f--- — e f= E | 

4 |DCV4 |DCA4 {ADR |[RWA |BCTR|LTDR| {SLL |BCT |MH |STC |SSM |MVZ |IGNORE| | | 
ļ-----ł------ ł-----4---—- TS 

5 |DCV8 [FREE |SN3 |APRM |NR [LNR [LPR |SRA |N {STH |ST |T™  |NC | | | | 
[SS hn nn ff pn fn fp of fn fn GUES BIAS ff 

| © [DROP |BUY  |BCIN |USNG |OR |LNER|LPER|SRDA|O {QLA {EX |XI |೦೮ |CONV | | | 
}-----4------ ~~~ f-----}----} hhh 

7 |EQU |SELL |STOP |EDIT |XR |LNDR|LPDR{|SRDL|X | 570 |STE |LA' |XC |CONV' | | | 
}~----+--—--}-----}-----}----}---- 4 --—- }---- 4 ----- ----4----4-----4--- -4------4--4----4 

8 18೧೦೦೮ |PROC' |BGNP |FMT |LR [LDR |LER |SRL |L ILD |LE |DCF2 |ZAP |USSL | | | 
| | | (LST | | | | | | | | | | | | | 
~----}------}----- ದುದದದ್ದ್ಕಿದಾದದದತ್ತಿದಾದದದ್ಕಿರಾದ f= ff pn ft en feet td 

9 |BEGIN|BEGIN'|BGNP'|FMT |CR [CDR |CER |STM |C ICD |CE [BCT' |CP |DRPL | | | 
~----}--—--}----- J 

| A |PASS |ADV  |DROB'|FMT' |AR {ADR |AER | BXH |A |AD |AF |MDRP |AP |CNVA | | | 
ohhh} ł----4 

8 |EOP |PLBS |PLBS'|EDIT'|SR |SDR |SER |BXLE|S {SD |SE | ISP |SINL | | | 
ehhh hhh 

C |ECP2 |PCBS |PSLD |ERROR|MR |MDR |MER |SL1 |M IMD |MF |SN2 |MP |CNVC1 | |IGN2| 
es 4} ----- ff ff ft tt ee tnt 

D |IPRM |IPRM' |ABS |PFMT |DR |DDR |DER [SN |D |DD |DE |0SM3 |DP |CNVC2 | |IGN4] 
bh hhh —- 

E |EPRN |EPRM' |ABS' | ISVC |AWR |AUR |CL1 |IC  |AW |AU |EQU' [ED |CNVC3 | |IGN5| 
E---——4----—-4-----4---—4----4---——4--——4--—-4-----4----4—--4--—-4----4------4--1---- 

F |ITDO |ITDO* |ALIGN| |BALR|SWR |SUR [CN |BAL |CVB |CVD |BSW |EDMK|CNVC4 | |IGN8| 
ee ee ಶಾ ಮತುತೆ 

6. TEXT FORMATS IN PSEUDO-CODE The format of the various pseudo-code 

units is as follows: 

Pseudo-code Design Three-byte unit: this consists of a 
one-byte operation code followed by a 
two-byte literal offset, and it appears 
immediately after the symbolic 

Pseudo-code is essentially a symbolic representation of the instruction to 

representation of machine code, designed in which if refers. 


such a way that it is possible to directly 
transform it into executable machine code 
by an assembly process. Five-byte unit: there are four basic 


five-byte units which have the 
following formats. 


A unit consists of a one-byte operation Bytes 0 1 3 
code followed by, normally, a two or CE 
four-byte field and on the other occasions | OP { 1 | R2 | 
by a variable length field. The bit. | | R1 | | 
pattern of the operation code indicates the | CODE | 0 | DICT REF | 
type of unit which it heads. Ll 
Bytes 0 1 3 
percer qoc rr qaos 1 
By having most units either three or | OP | | | 
five bytes long, the scanning of | R3 | OFFSET | 
pseudo-code is a fairly straightforward | CODE | | | 
process. [SSS SS 4 ಪಸ ಸತತ 
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| Bytes 0 1 3 
| eee ರ್‌ yaaa i cana aa a aoa a ae 1 
| OP I | | 
| | R1 | R2 | 
| CCDE | | | 
STNG ELAS PRS LS J 
Byte 0 1 3 
Se rae eed 
| OP | 1 | R2 | 
| HEX | | 
| CODE | 0 | DICT REF | 
NR IE Re ಯೂ br c ಮರ (fae eee AE 


Using these units with, if necessary, a 
three-byte unit, it is possible to 
symbolically represent any possible RR, RX, 
RS or SI instruction. 


Variable length unit: the format of 
this is: 


Bytes 0 1 3 
aaa EMT ಚತ್ರ ಮ ರಾ i 1 
| OP | | | 
| | FLAG | VARIABLE | 
| CODE | | | 
Leads nm ——— —————— ಮಾ d 


With a specially designed variable field 
described by a two-byte flag, it is 
possible to represent any SS instruction 
with this unit. 


The first byte of the two-byte flag 
indicates the format of the variable field 
and the second gives the length of the 
total unit. 


RX Instructions 


The following examples illustrate the basic 
forms of an RX instruction and the way in 
which they are represented in pseudo-code. 


L R1,J0E 

Bytes 0 1 3 
pee oO LP ETE qucm rmm 
| L | 0 R1 | DR(JOE) | 
ಓವಿ SENS. A NEES J 
L R1, JOE+24 

Bytes 0 1 3 
ನಾನಾನಾ ನಾನಾನಾ ನಾವಾ ಜವಾನ್‌ 
| L | 0 R1 | DR(JOE) | 
a ಯಾವು i EES ad 

Soe ee en 

| ೦51೩ | 24 | 
Coo eed 
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L R1,JOE(R3) 


| Bytes 0 1 3 
[EX Wey et ep pare ES Meg ea ee ee ತಮ 
| 3 | 0 R1 | DR(JOE) | 
Lome All-cl-z-LlLl.- Lo J 
Cs ON ರಾದಾ ಕಾರಾ ನಾದ್‌ ಜ್‌ ಇಂ 
| OSM2 | R3 | 
Llc-eecc JALIlIluee eem eeu J 
L R1,JOE*2U (R3) 

| Bytes O 1 3 
(Tec pom 
| L | 0 R1 | DR(JOE) | 
ಕೈ ವ ವಾತ ಭಇ ಮಾ ಸಭ ಮಾಮಾ ಜಾತಾ ಮ ತಾರಾ ನವಮ ಜಾ ಹಸವ ಎ ಜವ ಜಪಸರ ಹಾವ ವಾಡೆ 
ಅ aav VR rre ಕರಾ ಹಾಹಾ ಕಾಕಾ ಹಾ Verte oe ee ee ay 
| OSM3 | 24 | R3 | 
toe, ಘಾ ಮಾ ಇಸ ESE J 


Alternatively, JOE might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register. The two forms are distinguished 
by setting the flag bit of the first 
symbolic register equal to one when a base 
register is intended. 


L R1,0(R3,R2) 


| Bytes 0 1 3 
(os a Tee ee ಜಾ WU ee ಸಸಸ 1 
| L | 1 R1 | R2 | 
ಕೈ ae ಹಾಮಾನಾ LE ಮೂ J 
MEM NC ERE Mao ae CUN CLR cu 
| OSM2 | R3 | 
Le ಸವ ಸವ oa E Sass a a os J 


When a branch instruction is generated 
which branches toa compiler generated EQU 
value, bit two of the second byte is set to 
one to indicate that the second field is in 
fact an EQU value. 


| Bytes 0 1 2 3 
ಬಾರಾ te PY 
| BC | 0% | HEX 1800 VALUE | 
Lolo ee aus caduto ಬತ 
| Bytes 0 1 2 3 
ಭಾನ ಮವ ಹವಾಸಿ ನಾನಾ ಮಬನ ಘಾ ಸಾತಾರಾ ಚ ಆದ 
| | 1 | | R2 | 
| BC | 0 HEX | [----------- 
| | 0 | | DICT REF | 
inccr. dene Eccc ಗ e J 


RS Instructions 


The following examples illustrate the basic 
forms of an RS instruction and the way in 
which they are represented in pseudo-code: 


BXH R1,R2, ALPHA 


| Bytes 0 1 3 
ET ee ee ar ee ee 
| BXH | O RI | DR(ALPHA) | 
EL ವಾ ನವಾನಿ ಮಾನ A LL ಪೂ ಸಾಹಾ ಮಾತಾ ಮತಾ ಮಾಹಾ ತೊ ಇವ anres ತೆ 
ಜಯ ae ಎಬಿ ಹ 
| ೦882 | R2 | 
to ಮ =d 


BXH R1,R2,ALPHA+24 


| Bytes 0 1 3 
ನಾನವನ oe 1 
| BXH | 0 R | DR(ALPHA) | 
bse eh ವವು ಎಷ et SSN 
(Snr ಕರಕರ ರಾದಾ 
| ೦೩೫3 | 28 | R2 | 
EIE SRE ಅಜ ಇತ ae 


Alternatively, ALPHA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register as in the RX instruction. 


SLA R1,6 

| Bytes 0 1 3 
ee eee ee 
| SLA | R1 | 6 | 
ವಾಸವ c fm RE 


RR Instructions 


The following example illustrates the form 
of an RR instruction and the way in which 
it is represented in pseudo-code. 


AR R1,R2 
| Bytes O 1 3 
a eqn eo ng en nny 
| AR | R1 l R2 d 
Le "c p REST 


SI Instructions 


The following examples illustrate the basic 
forms of an SI instruction and the way in 
which they are represented in pseudo-code: 


CLI BETA,X'FF' 


| Bytes 0 1 3 
— ———————— ಸಾಜಾ 
| CLI | 0 FF | DR(BETA) | 
Lie rM ಸವನ Souter tee ತ 
CLI BETA*&4,X'FF' 
| Bytes 0 1 3 
| CLI | 0 FF | DR(BETA) | 
ied dii | —  —— ತುವ ವಿ ee ee J 
ನರಾವ್‌ redimi ಹಪ 
| osMi | u | 
ಓತ S J 


Alternatively, BETA might be a base 
register in which case the dictionary 
reference would be replaced by a symbolic 
register. 


SS Instructions 





Basically, an SS instruction consists of 
two base registers and a length byte. 

Since this does not conform to the format 
of other items of pseudo-code, it is 
necessary to represent an SS instruction 
with a variable length field, the length of 
which is specified in the second of two 
flag bytes immediately following the 
operation code. 


This variable form of pseudo-code will 
be used to convey items of information 
internally between compiler phases, at the 
same time maintaining the ‘items in the 
guise of pseudo-code. 


Variable Length Item FLAG 


The first bit of the FLAG indicates whether 
or not the unit represents a machine 


instruction. In the former case, the 
format of the instruction is: 

| Bytes 
0 1 2 3 4 6 8 10 
ನಾಲಾ ee et a nd 
| OP | | | | I | 
| |FLAG|LENGTH| F1 | F2 | F3 | F4 | F5 | 
| CODE] | | | | I | | 
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The format of the FLAG is: ZAP ALPHA+3(14), BETA(6) 


Bit zero One | Bytes 0 1 2 3 4 
0 Always zero |ZAP[X'10'| 10 |13 5 |DR(ALPHA) | 
bowen EE ET ಎನ! 
1 F2=dict. ref. F2=sym reg. | 6 8 
2 F3=dict. ref. F3=sym reg. PORT BETA? T 3| 
Liz 21..- J 
3 FU not present F4 present 
4 ೫5 not present F5 present MVC ALPHA(6), BETA*11 
5-7 Not used | Bytes 0 1 2 3 4 
| | : |MVC[X'08*'*|] 10 | 5 |DR(ALPHA) | 
The FI field is identical to the length bell 
field in the SS machine instruction. The | 6 8 
field contains one or two lengths which are r7-7------ Ta 
each one less than the corresponding (PE PETALI 1H] 
lengths used in Assembler Language. The F4 le- 


and F5 fields contain literal offsets. 


AP ALPHA+3 (14) , BETA+11 (6) 
| Bytes 0 1 2 3 4 
[tpe hh te eee 
Compiler Function (Bit 1=1) ; JAP [X'18'| 12 |13 5 ಸೂಟ, 
bod el ಹೋಸ ರುವ ಸಸಯ 
| 6 8 10 
In compiler functions, the format of the r-------- Tr 
FLAG depends on the operation code. Thus: (DRABETAD |. 3| 11| 
Le id 
p E PESE ಕಾವಾ 1 
| CONV | FLAG | LENGTH 1 F1 H F2 | 
Ll dd Alternatively, ALPHA and/or BETA might 
l be base registers, in which cases, the 
The format of the FLAG is: dictionary references would be replaced by 
symbolic registers and the FLAG byte would 
Bits Both Zero Both One be set accordingly: 
0 Always one MJO ALPHA(14), 11(6,R1) 
1 and 2 Fi=dict. ref.  F1-TMPD operand l Bytes 0 1 2 3 4 
[pe ct TR 
3 and 4 F2=dict. ref. F2=TMPD operand IMVO[X'28'| 10 413 5 [DR (ALPHA) | 
Loe Ecl Cane ಸಬೆ FEES 
5-7 Not used | 6 8 
. pee 
The FLAG in the IGNORE item does not | R1 | 11] z 
contain any information. t-———-——--1i-—~——4d 


The following examples illustrate the 
basic forms of an SS instruction and the 
ways in which they are represented in 
pseudo-code. 


MVC ALPHA(7),BETA Pseudo-code Format between IEMRA and IEMRF 
| Bytes 0 1 2 3 4 
Pont tt) Fields that may hold a dictionary reference 
111701೫10011 8] 6 | DR (ALPHA) | or register number have, at this time, the 
t_--1--~~-- 1-1 ---1-~ —------—4 possibility of holding a literal offset. 
| 6 The presence of an offset is indicated by 
f------ the first pit of the field being set to 
[DR (BETA | one, and earlier flags being set to 
ಓಂ ಎದ "register." 
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7. TEXT FORMATS IN ABSOLUTE CODE 





Where a standard set of assigned registers 
is to be used for a section of code, e.g. 


in the construction of prologues, or during 


the generation of addressing instructions, 
it is possible to generate instructions : 
with registers in absolute code, instead of 
the normal pseudo-code two-byte symbolic 
registers. (See "Text Formats in 
Pseudo-Code" in this Appendix.) 


sections of absolute code are preceded 
by ABS markers and followed by ABS' 
markers. The operation codes are the same 
as the normal pseudo-code instructions (see 
"Text Code Bytes in Pseudo-Code" in this 
Appendix), but the instruction formats 
differ, as shown in the following examples: 


RR Instructions 


| Bytes 0 1 
m quocum enm 
| OP CODE | R1 R2 | 
Ecl. 2l d e ru 
RX Instructions 

| Bytes O 1 2 
| OP CODE | R1 X2 | B2 | 
a ee es 
3 
p---——------- 
| DICT REFCE 1 
pal ಸಾಮ ಜು ಎವ 
0 1 
MENSIS t-m 
| osm2 I OFFSET | 
Lec Aanllccnc J 


SS Instructions 


| Bytes O 1 2 3 
SSeS b une icin SOE ಮನಾ ಪೂ ಈಗಾ 
| OP CODE | LENGTH | B1 | DICT REFCE | 
ಸಾವಾಸ“ ಹವಮಾನ bs cllc. aede: Meer 
| 5 6 
Ge yo eer ತ 
| B2 | DICT REFCE | 
AN RENN Ee, J 
| 0 1 
pee = 
| OSM1 | OFFSET | 
| 0 1 
yep ದಾನಾ 1 
| OSM2 | OFFSET | 
ಕೆ uccoalonc c lad 
RS Instructions 
Shift Instructions 
| Bytes O 1 2 
ನಾರಾ ಮಮಾ ಮ ವ್ಯಾನ ene queen m 1 
| OP CODE |R1 O | OFFSET | 
blo. tcl dais liu 
Other Instructions 
‘| Bytes 0 1 2 
ಲ 
| OP CODE | R1 R2 | B2 | 
ತ್‌್‌ ತಾ ಮಾನಸ ERES ಮವ ಎಸಬ 4 
| 3 
| DICT REFCE | 
ಹಬಾ MEE ದಿಸಿ 
[ 0 1 
——Á— 
| OSM2 | OFFSET ! 
Lr ತವ ಮಜ NS, J 
SI Instructions 
| Bytes 0 1 2 3 
EET mmi q- t-r- 
| OP CODE | MASK |B1 | DICT REFCE 1 
ಹವು ಸಾಯ ಸ dul c E dzzcdnlilac ces J 
| 0 1 
ಸಾ mani: ಕಷ ಮಾವಾ 
| OSM2 | OFFSET | 
baw ವ ಸಾಮಾಸಭ Tad 


Note that the OSM1/0SM2 markers and their 
following offsets are all optional; note 
also that the OSM2 byte does not have a 
register following it, as in normal 
pseudo-code, but a literal offset. 
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The first bit (bit 0) of the byte 
containing the base is used as a flag. If 
this bit is a one, the following two bytes 
contain, in their low order position, a 
twelve bit offset, instead of a dictionary 
reference. 


After Phases RA and RF all instructions 
in the text will be in absolute code. 


8. SECOND FILE STATEMENTS, AND THE FORMATS 


OF COMPILER FUNCTIONS AND PSEUDO-VARIABLES 


Second File Statements 


Any expression occurring in an attribute 
must be put into a form which is acceptable 
to the translator phase. This means that 
it must look like a source statement. To 
comply with this, all expressions dealing 
witn array bounds, strinq lengths, 
DEFINING, and INITIAL value iteration 
factors are converted into assignments to 
function references. These functions have 
a special meaning. They are not entered in 
the dictionary, and their dictionary 
references are to a region in the 
communications area. The pseudo-code 
physical phase dealing with each particular 
function generates in-line code instead of 
a function reference. 


All the statements of this type are 
generated in the source text after the end 
of the original source program. They form 
a second program and are referred to later 
as the "second file." 


The statements generated have the 
followina cverall format: 


Byte Number Description 
1 Code byte SN2 
2-3 Dictionary reference 
4 Options byte 
5 Statement type merkers 


6 onwards Statement body 

The dictionary reference is the 
reference of a second file dictionary 
entry. This is described in Appendix C. 
The options byte is that for the options 
operative in a prologue, i.e. no 
interruptions are accepted. 
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Array Bounds 


The format of the second file statement for 
array bounds is as follows: 


Byte Number Description 


1 Assignment statement marker 

2 Code Byte X'00' 

3-4 ADV code ೫00021 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'00' 

8-9 Dictionary reference of 
array 

10 Triple operator code byte 
x'uu* 

11 Code byte X'5E' 

12 Code byte X*'00' 

13 Code byte X'00' for lower 
bound, X'01' for higher 
bound 

14 Number of the dimension 
whose bound is referenced 

15 Right parenthesis 

16 Triple operator code X'46' 

17... Expression for bounds 


Statement terminating 
semicolon 


Multiplier Function 


Multiplier function statements are used to 
denote copying of a section of one dope 
vector into another. The format is: 


Byte Number Description 
1 Assignment statement marker 
2 Code byte X°00° 
3-4 MTF code bytes X‘'0010° 
5 Compiler call marker 
6 Left parenthesis 
7 Code byte X*'00' 


8-9 Dictionary reference 1 


10 Triple operator code byte 
X'uu* 

11 Code byte X'00° 

12-13 Dictionary reference 2 

14 Triple operator code byte 
Xx'uu* 

15 Code byte X'5E' 

16 Code byte X'00' 

17-18 Offset 1 

19 Triple operator code byte 
x'uu* 

20 Code byte X'5E" 

21 Code byte X'00' 

22-23 Offset 2 

24 Triple operator code byte 
21006 

25 Code byte X'5E' 

26 Code byte Xx'00' 

27-28 Length 

29 Right parenthesis 

30 Statement terminating 
semicolon 


This statement requires the number of 
bytes specified by the length to be moved 
from the dope vector of the item at 
dictionary reference 2, starting at an 
offset of offset 2, to the dope vector of 
the item at dictionary reference 1, 
Starting at an offset of offset 1. 


String Length statement 


The string length statement is used to 
initialize the maximum length slot in a 
string dope vector. The format is: 


Byte Number Description 
1 Assignment statement marker 
2 Code byte xX‘00° 
3-4 SDV code X'0004' 
5 Compiler pseudo-variable 


6 Left parenthesis 

7 Code byte x‘'00' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator Code X'u6' 
1s Expression 


Statement termination 
semicolon 


The dictionary reference is that of the 
item whose dope vector is being 
initialized. If the expression is defining 
the length of a string being returned by an 
internal function, then the dictionary 
reference is that of the entry type 2 
belonging to the label. In Figure 6 the 
reference is to B or C depending on whether 
the statement appeared in a PROCEDURE/ENTRY 
statement, or an ENTRY attribute. If the 
item is a data item, an external procedure, 
or a formal parameter entry point, then the 
dictionary reference of that particular 
item appears in the statement. 


INITIAL value statements 


INITIAL value statements are used to 
initialize a vector of storage used to 
contain iteration factors. It is implied 
that the value of the expression must be 
converted to type integer. The format is 
as follows: 


Byte Number Description 


1 Assignment statement marker 
2 Code byte x'00' 

3-4 IDV code 

5 Compiler pseudo-variable 

6 Left parenthesis 

7 Code byte X'00' 

8-9 Dictionary reference 

10 Right parenthesis 

11 Triple operator code ೫61 
12... Expression 


Statement terminating 
semicolon 
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The dictionary reference is to the item 
being initialized. The integer is the 
number of assignment statements of this 
type, and for this variable, that have been 
generated before this one. 


Second File Statements for BASED and OFFSET 


A statement is generated for a variable 
which is declared BASED with its associated 
pointer given, and for a variable which is 
an OFFSET with its associated base given. 
The format of the statement is similar to 
that of the INITIAL value statement except: 


Byte Number Description 


3-4 PEXP code (BASED) x*'0016' or 
BVEXP code (OFFSET) x'0017"' 


12 Expression (which must be a 
single dictionary reference 
of the associated pointer or 
base) 


The dictionary reference in bytes 8-9 is 
that of the BASED or OFFSET variable. 


Second File Statements for DEFINED 





Second file statements are generated when 
an expression is associated with DEFINED, 
but the expression does not contain any 


iSUPs. The format is: 
Byte Number Description 
1 Compiler assignment 
Statement marker 
2 Code byte X'00' 
3-4 ADF code; 
X'0011' for base only 
X'0012' for subscripted base 
X'0013' for base with iSUP's 
5 Pseudo-variable marker 
6 Left parenthesis 


Base7and subscript list 
Right parenthesis 


Statement terminating semicolon 
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9.  PSEUDO-CODE PHASE TEMPOR ಗಾಳ RESULT 
DESCRIPTORS (TMPD) 


Temporary Description Stack 


All information on temporary results is 
contained in this stack. Each item in the 
stack consists of 10 bytes. A maximum of 
200 items is allowed. 


Byte 1 Flac 1 describes the addressing 
method contained in bytes 
5 through 10. 2 bits in 
this byte are also used 
during the release of 
temporary results 

Byte 2 Code 2 describes the radix, 
scale, mode, string type 
etc. of the temporary 
result. The format of 
this byte is identical to 
the similar byte in the 
dictionary and the DED 
used by the Library 
subroutines. routines. 
(See "Data Byte" in 
Appendix C.) 

Bytes 3-4 P,Q describes the precision 
and scaling of arithmetic 
type results 

Bytes 5-6 BASE in one of the following 
forms: 


1. "Reg by value" 
register containing 
the result - no index 
or offset is allowed. 

2. "Reg by value" 
register containing 
the base address of 
the result stack 

3. Offset from beginning 
of current temporary 
Storage for results 
held in the temporary 
storage stack 

4. Dictionary reference 
which specifies the 
base address of the 
result of a subscript 
calculation 

Byte 7-8 


NDX in one of the following 


forms: 


1. Symbolic indexing 
register for BASE type 
2 and 4. 

2. The number of bytes 
required in the 
temporary core stack 
for BASE type 1 


Bytes 9-10 OFS which is a literal offset 
to be inserted in the 
base address. When used 
with BASE type 1 the 
actual temporary offset 
is the sum of the offsets 
and the number of bytes 
required in the stack is 
the sum of the contents 
of OFS and NDX 


Strings are described in the following 
ways: 


If the string is of fixed length less 
than 256 bytes, it is given storage in 
the core stack. This type of string 
has a dictionary entry if it is passed 
to a subroutine. 


If the string is of variable length or 
longer than 256 bytes, the storage is 
bought and sold when required. This 
type of string always has a dictionary 
entry. 


If the string has no dictionary entry, 
it is described by the usual CODE 
bytes, the temporary core offset in 
BASE, and the byte length in NDX. 


two pointers: PSTK and LSTK. 
to the 'physical' top of the stack, which 


next item to be released. 


If the string has a dictionary entry, 
it is described by the usual CODE bytes 
and the dictionary reference IN BASE. 
The dictionary entry describes the 
location of the string which may be 
either the temporary area offset and 
size for the first type, or a BUY 
Statement for the second type. 


The 'top' of the stack is indicated by 
PSTK points 


is the last item added.  LSTK points to the 
*logical' top of the stack, which is the 
The difference 
is necessary because the temporary storage 
stack may not be released in the same order 
as the description stack. When an item in 


the description stack is released, the 


corresponding temporary storage may not be 
at the top of the stack storage. As the 


Storage stack is always released in order, 
the description is flagged and the LSTK is 
reduced by 1 item. 
temporary core is released from the top of 
the storage stack, the description is 


When the corresponding 


completely removed from the 'physical' 
stack. 


Ss a a a ee eee e ccce 
| | | [Whether F7| | 
[FLAG | F5 | F6 | applicable| Comments | 
STE 2222 H = "a Yes | 
| . [reference | J | | 
[x'02' |Dictionary | - | No | STRUT2 output -- must SELL dictionary ref. | 
|xeference | | | 
|{X"04* (Dictionary | - | No |REPEAT function result. | 
| |reference | | l | 
[x'05*'|Dictionary |Dictionary | No |SUBSTR function result. | 
[reference* |reference? | | i | 
{X°20" {Dictionary |Index | Yes {Arithmetic subscript, or SDV for varying | 
| [reference |register | [string subscript. | 
|X°41° |Symbolic {Dictionary | Yes [Non-adjustable fixed string subscript, with | 
| |xegister |reference | | DROP in STRUT2. | 
[x'u9' [Symbolic [Dictionary | Yes |Non-adjustable fixed string subscript, without| 
[register [reference | {DROP in STRUT2. | 
|೫' 801 [Register | - | No {Item in register -- F7 cannot exist. | 
|X*CO* {Workspace | - | Yes | | 
[offset | | | | 
|X'Ci'|Workspace |Dictionary | Yes |SDV for adjustable fixed string subscript. | 
joffset {reference | | 
[x'c5*'|Workspace |Dictionary | No |SUBSTR pseudo-variable result. | 
| loffset {reference | | | 
[-----1----—----- TN Pega ee eC co ಜಮಾನ ತೊ ಎವಾ ಪಿಸ ಸಾ ಸಷ ಹವನ ವಾಡು ವೂ ಹೆಂ 4 
[Notes 1. Since F6 cannot be used for both an index register and a dictionary 


| reference, bits 2 and 7 of the FLAG byte cannot both be 1. 


Many other bit configurations in the FLAG byte are meaningful and could 


| be used for future applications. 


Figure 12. 


Temporary Descriptions in Pseudo-Code -- Use of TMPD Triple Fields F5 and ೫6 
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Temporary Descriptions in Pseudo-Code 


Descriptions are passed between pseudo-code 


phases usina two or three TMPD triples, 
with the following formats: 


CS eee IN ERST 

| TMPD |FLAG| F2 | F3 | F4 | 
I---——--—141-7-7-7-71-—--141--—1-—- 
| 7೫೫೦ | F5 | F6 | 
eh 
| TMPD | F7 |: | 


| SSNS SSS S 


1. FLAG describes the use of fields F5, 
F6, and F7. 


poc So se ಕ್‌ RM IMMER EE E CEDE 1 
[Bit | | | 
|Nurber |Value| Meaning | 
po ನಾನಾನಾ ನ ಧವನ ನಾವಾ ವ 
| | | | 
10 and 1] 00 | F5 contains a dictionary | 
| | | reference | 
| | 11 | F5 contains a temporary | 
| | | workspace offset | 
| | 91 | F5 contains symbolic | 
| i | register with address of | 
| | | item | 
| | 10 | F5 contains register with | 
| | | value of item | 
{2 | 0 | ೫6 does not contain index | 
| | | register | 
[ | 1 | F6 contains index register | 
13 | 0 | Two TMPD triples are used | 
| | 1 | Three TMPD triples are | 
| | | used, and F7 contains an | 
| | | offset | 
{4 | 0 | Normal setting. String | 
| | | utility STRUT2 drops | 
| | | symbolic register in F5 if| 
| | | used for input 

| | 1 | String utility STRUT2 does| 
| | | not drop symbolic register | 
{5 | 0 | Normal setting 

| | 1 | Result of an invocation of 
| | | SUBSTR or REPEAT 

| 6 | 0 | No SELL is required 

| | 1 | User of this description 

i | | must SELL dictionary 

| | | reference in F5. Set by 

| | | string utilities for 

i | | adjustable string result 

|7 | 0 | F6 does not contain a 

| | | dictionary reference 

| | 1 | F6 contains a dictionary 

| | | reference 

bonnes ease ———————Ó— 


2. CODE contains the data byte 
(describing type, radix, scale, mode, 
etc.) 
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do ao e GEES em— aain am— am — — — u— m ಖಾಣಾ 


3. F3 and F4 contain: 

a. Precision and scale factor of 
coded arithmetic type data 

b. String length for coded 
non-adjustable strings (maximum 
length for varying strings) 

C. Picture dictionary reference for 
data with picture 


4. F5 and F6 are at present used as shown 
in Figure 12. 


5. F7 can be used by adding X'10' to the 
FLAG byte in all cases which give a 
meaningful result (see Figure 12). 


10. LIBRARY CALLING SEQUENCES 


Intcrnal library routines are used for such 
things as data type conversion, where there 
is no explicit reference to the routine in 
the PL/I source program. The arguments are 
handed to the routines in registers. In 
pseudo-code form, assigned registers are 
used, and special markers, IPRM and IPRM' 
are used to indicate the calling sequence 
to the register allocator phase. Internal 
library calls appear in pseudo-code as: 


IPRM 

L 1, (ARGUMENT1) 

L 2, (ARGUMENT2) 

L 15,IHE---- (Routine Name) 
BALR 14,15 

IPRM' 


Tho second byte of the IPRM item is used 
as a flag byte. The settings are as 


follows: 
Bit 0 Must be zero 
Bit i END, or RETURN statement not 
in BEGIN block calling 
sequence 
Bit 2 END statement calling 


sequence 


External library routines calls 
correspond to explicit references to 
functions or I/O statements in the PL/I 
source program. The arguments to the 
routines are placed in workspace, and 
register 1 is set to point to the first 
argument. For pseudo-code form the calling 
sequence is preceded by an EPRM marker and 
followed by an EPRM' marker. Thus, the 
library calling sequence appears as: 


MVC WSP (N) , (ARGUMENTI ) 

EPRM 1,WSP 

L 15,IHE----(Routine Name) 
BALR 14,15 

EPRM' 

LA 1,WSP 


The second byte of the EPRM is used as a 


flag byte. The setting is as follows: 
Bit 0 A calling sequence to a PL/I 
procedure 
11. DESCRIPTIONS OF TERNS AND 


ABBKEVIATIONS USED IN TEXT DURING A 
COMPILATION 


The table in this section gives first, the 
term or abbreviation; second, the phase in 
which the term is used; and third, a brief 
description of the meaning of the term or 

abbreviation. The key to the code used is: 


R After the Read-In Phase 
PS During the Pseudo-Code Phase 


T A triple or translator input 
code byte 
Term or Used In 
Abbreviation Phase Description 
A R,T Character string 
format item 
ABS PS Indicates the start 
of absolute code 
(Appendix D7) 
ABS‘ PS Indicates the end of 
absolute code 
ADI PS Addressing 
instruction (used 
between phases RA and 
RF) 
ADR PS The two byte operand 


contains a register 
for use by final 
assembly for 
addressing branch 
destinations beyond 
4096 bytes from the 
program base 


ADV 


ALIGN 


ALLOCATE 


APRM 


ARCO 


AREA 


- ARGUMENT MARK 


ARRAY CROSS 
SECTION 


ASSIGN 


ASSIGN BYNAME 


ATTRIBUTES 


AUTOMATIC 


BACKWARDS 
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PS 


PS 


R,T,PS 


PS 


ಸ 


R,T 


R,T 


R 


Used in 2nd file 
assignment statements 
to indicate that the 
expression has been 
calculated and that 
the following code is 
only concerned with 
assignment to the 
variable, or its dope 
vector, which is the 
subject of the second 
file statement 


Indicates that 4 byte 
alignment is required 
in the code at this 
point 


Replaces the keyword 
ALLOCATE 


Indicates the library 
calling sequence for 
VDA or controlled 
storage 


Provides space to 
allow insertion of 
argument conversion 
triple 


Replaces keyword AREA 


Marker used by phases 
GK and GP to indicate 
he start of a 
function argument 


Replaces the PL/I '*' 
used to specify an 
array cross section 


Marker which precedes 
an assignment 
statement 


Precedes an 
asSignment statement 
with the BY NAME 
option 


Marker which precedes 
a dictionary entry 
containing the 
attributes which have 
been specified on an 
OPEN or CLOSE 
statement 


Replaces the keyword 
AUTOMATIC 


Bit string format 
item 


Replaces keyword 
BACKWARDS BEGIN 
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BASED 


BEGIN' 


BGPE 


BGNP 


BGNP' 


BIT ATTRIBUTE 


BIT CONST 


BINARY 


BLBS 


BLBS' 


BUFFERED 


BUILTIN 


BUY 


BUY 
ASSIGNMENT 


BUYB 


PS 


PS 


PS 


PS 


PS 


BUY CHAMELEON T 
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Replaces keyword 
BASED 


Triple which 
terminates the BEGIN 
block triples 


Indicates the end of 
the complete prologue 
for a begin block 


Indicates the start 
of code for a BEGIN 
block with no 
prologue 


Indicates the end of 
code for a begin 
block with no 
prologue 


Replaces the keyword 
BIT 


Marker preceding a 
BIT string constant 


Replaces the keyword 
BINARY 


Indicates the start 
of the prologue for a 
BEGIN block 


Indicates the end of 
the prologue for a 
BEGIN block 


Replaces keyword 
BUFFERED 


Replaces the keyword 
BUILTIN 


Code byte or triple 
which indicates that 
a temporary variable 
is required 


Triple which indi- 
cates assignment to a 
temporary variable, 
and which implies 
that the workspace 
for the temporary 
variable must be 
obtained before the 
assignment 


Triple or code byte 
which indicates that 
a scalar temporary is 
required for an 
aggregate argument to 
a generic scalar 
built in function 


Marker which 


BUYS 


BY 


BY‘ 


BY NAME 


[ed 


CALL 


CALL* 


CELL 


CHAR 


ATTRIBUTE 


CHAR CONSTANT 


CHECK 


CHSM 


CL 


CLN1 


R,T 


PS 


R,T,PS 


indicates that 
workspace is required 
for a temporary 
variable of chameleon 
data type i.e. the 
data type is taken 
from the expression 
assigned to the 
variable 


Code byte or triple 
which indicates that 
a temporary variable 
is required, and that 
initialization code 
exists between this 
triple and the BUY 
triple 


Replaces the keyword 
BY 


Triple which 
indicates the end of 
a BY expression 


Replaces the keyword 
BY NAME 


Complex decimal 
format item 


Triple which 
indicates the end of 
a C format item 


CALL statement marker 


Triple internal to 
phase IA which marks 
the end of a CALL 
statement 


Replaces the keyword 
CELL 


Replaces the keyword 
CHARACTER 


Marker preceding a 
character string 
constant 


Replaces the keyword 
CHECK 


A special offset 
marker. Used only in 
absolute code to 
indicate that the 
offset may require 
changing 


Compiler label marker 


Compiler label number 
triple, referred to 


CLN2 T 
CLOSE R,T 
CN R,T,PS 
CNVC1,-—4 PS 
COL R,T 
COMA T 
COMPLEX R 
COMPILER T 
ASSIGN 

COMPILER T 
FUNCTION 
COMPILER T 
FUNCTION' 
COMPILER T 


FUNCTION CALL 


COMPILER T 
FUNCTION CALL' 


COMPILER T 
FUNCTION COMMA 


once only in the 
current statement 


Compiler label number 
triple, referred to 
at any point 


Replaces the keyword 
CLOSE 


Compiler statement 
number. Can precede 
compiler inserted 
Statements 


Convert compiler 
functions 

1-Drop all registers 
2-Drop target 
register 

3=Drop source 
register 

4=Do not drop 
register 


Replaces the keyword 
COLUMN 


Triple indicating an 
individual subscript 
in a subscript list 


Replaces the keyword 
COMPLEX 


Code byte or triple 
indicating assignment 


Code byte or triple 
used to indicate the 
start of a compiler 
function call 
arqument list 


Triple indicating the 
end of a compiler 
function argument 
list 


Code byte or triple 
used to indicate the 
Start of a compiler 
function call 
argument list 


Triple indicating the 
end of a compiler 
function call 
argument list 


Triple used to indi- 
cate the argument of 
compiler function, or 
Pseudo-Variable 


COMPILER T 
PSEUDO- VARIABLE' 
COMPILER T 
PSEUDO-VARIABLE 
COMR T 
CONDITION R 


CONTROLLED R 


CONTROL R,T 
VARIABLE 


CONVERSION R 


COPY R,T 
CONTROL T 
VARIABLE' 

DATA R,T 
DATA' T 


DATA LIST DO R 


DCF2 PS 
DECIMAL R 

DECLARE R 

DEFINED R 

DEFINED T 

SUBSCRIPT 


Triple indicating the 
end of a compiler 
pseudo-variable 
argument list 


Code byte or triple 
used to indicate the 
Start of a compiler 
pseudo-variable 
argument list 


Triple indicating an 
individual subscript 
held in a register 


Replaces the keyword 
CONDITION 


Replaces the keyword 
CONTROLLED 


Marker which indi- 
cates the control 
variable of a DO loop 


Replaces the keyword 
CONVERSION 


Replaces the keyword 
COPY 


Triple which indi- 
cates the end of a 
control variable 
expression 


Replaces the keyword 
DATA 


Triple indicating the 
end of a data 
directed I/O list 


Replaces the keyword 
DO in an iterative 
clause in a data list 


Causes output of 
'ERROR STOP' and the 
four bytes following 
in the pseudo-code 
item 


Replaces the keyword 
DECIMAL 


Replaces the keyword 
DECLARE 


Replaces the keyword 
DEFINED 


Marker which precedes 
the parenthesized 
iSUB subscript list 
Of a defined array 
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DELAY 


DELETE 


DICTIONARY 
REFERENCE 


DIRECT 


DISPLAY 


DO 


DO EQUALS 


DROB 


DROP 


DROP 


DRPL 


EDIT 


EDIT' 


EIO 
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R,T 


H 


R,T 


PS 


PS 


PS 


R,T 


Replaces the keyword 
DELAY 


Replaces the keyword 
DELETE 


Marker indicating 
that the following 
two bytes contain a 
symbolic dictionary 
reference 


Replaces the keyword 
DIRECT 


Replaces the keyword 
DISPLAY 


Replaces the keyword 
DO, ina 
non-iterative DO 
group 


Marker which replaces 
the PL/I'z' in the 
iterative DO 
Statement (DO I- ) 


Indicates to the 
register allocation 
phases that a base 
register used for 
addressing a 
controlled variable 
should be dropped 


Triple used in 
optimization 
indicating the drop 
of an index register 


Indicates that a 
symbolic or assigned 
register in the 
operand field of the 
instruction is no 
longer required 


Indicates the end of 
the use of a list of 
symbolic registers 
which have appeared 
in an USSL item 


Floating decimal 
format item 


Replaces the keyword 
EDIT 


Triple indicating the 
end of an edit 
directed I/O list 


Code byte or triple 
which indicates the 
end of an 2/0 
statement 


ELSE 


END 


END BLOCK 


END DO 


ENDFILE 


END ITDO 


END LIST MARK 


END PROG 


END PROGRAM2 


ENTRY 


EPRM 


' EPRM' 


EQU 


EQU' 


R,T 


R,T 


R,T,PS 


T,PS 


PS 


PS 


PS 


PS 


Replaces the keyword 
ELSE 


Replaces the END 
keyword at the end of 
a BEGIN or PROCEDURE 
block 


Indicates the end of 
a text block 


Replaces the END 
keyword at the end of 
a non-iterative DO 
group 


Replaces the keyword 
ENDFILE 


Replaces the END 
keyword at the end of 
an iterative DO loop 


Marker used by phases 
GK and GP to indicate 
the end of a function 
argument list 


Marks the end of 
program 


Triple which marks 
the end of the second 
file text i.e. 
prologue 
initialization text, 
which is placed after 
the source program 
text 


Replaces the keyword 
ENTRY 


Indicates the start 
of an external 
library calling 
sequence. (Appendix 
D10) 


Indicates the end of 
an external library 
calling sequence 


Indicates that the 
two byte operand 
field contains a 
label. The label is 
considered to be 
attached to the 
following pseudo-code 
item 


As for EQU, but 
indicates that 
control may enter 
from a different 
statement. 


ERROR 


ERROR 


ERROR 


EVENT 
EXCLUSIVE 
EXIT 


EXTERNAL 


F' 


F COMMA 


FILE 
FILE 
FINISH 
FIXED 


FIX BINARY 
IMAGINARY 


FIX BINARY 
REAL 


FIX DECIMAL 
IMAGINARY 


FIX DECIMAL 
REAL 


PS 


R,T 


R,T 


Replaces the keyword 
ERROR 


Code byte or triple 
which marks the 
position of an 
erroneous source 
Statement which has 
been deleted 


Indicates the 
presence of a source 
program error 


Replaces the keyword 
EVENT 


Replaces keyword 
EXCLUSIVE 


Replaces the keyword 
EXIT 


Replaces the keyword 
EXTERNAL 


Fixed decimal format 
item 


Triple which 
indicates the end of 
an F format item 


Triple used to 
indicate the 
arguments of a 
function or pseudo 
variable 


Replaces the keyword 
FILE 


Triple indicating the 
end of a file list 


Replaces keyword 
FINISH 


Replaces the keyword 
FIXED 


Marker which precedes 
a fixed binary 
imaginary constant 


Marker which precedes 
a fixed binary real 
constant 


Marker which precedes 
a fixed decimal 
imaginary constant 


Marker which precedes 
a fixed decimal real 
constant. 


FIXED 
OVERFLOW 
FLOAT 


FLOAT BINARY 
IMAGINARY 


FLOAT BINARY 
REAL 


FLOAT DECIMAL 
IMAGINARY 


FLOAT DECIMAL 
REAL 


FORMAT 


FORMAT' 


FORMAT LIST 


FORMAT LIST' 


FREE 


FROM 


FUNCTION 


FUNCTION 


GENERIC 


GET 


GOOB 


GOLN 


GOTO 


R,T 


Replaces keywords 
FIXED OVFRFLOW 


Replaces the keyword 
FLOAT 


Marker which precedes 
a float binary 
imaginary constant 


Marker which precedes 
a float binary real 
constant 


Marker which precedes 
a float decimal 
imaginary constant 


Marker which precedes 
a float decimal real 
constant 


Replaces the keyword 
FORMAT 


Triple which marks 
the end of a remote 
format statement 


Precedes a format 
list l 


Triple indicating the 
end of a format list 


Replaces the keyword 
FREE 


Replaces the keyword 
FROM 


Code pyte or triple 
indicating the start 
of a function 
argument list 


Marker which precedes 
the parenthesized 
argument list (if 
present) of an entry 
name in a function 
reference or CALL 
statement 


Replaces the keyword 
GENERIC 


Replaces the keyword 
GET 


GOTO out of block 
statement marker 


Indicates a branch to 
a label number 


GOTO in block 
statement marker 


Appendix D: Internal Formats of Text 443 


IDENT 


IF 


IF’ 


IGN 2..8 


IGNORE 


IGNORE 


IN 


INITIAL 


INITIAL LABEL 


INITVAR 


lNPUT 


INST 


INTEGER 


INTERNAL 


INTO 


IPRM 


31700 


uuu 


R,T 


R,T 


PS 


PC 


PS 


R,T,PS 


Replaces the keyword 
IDENT 


Replaces the keyword 
IF 


Triple which 
terminates an IF 
expression 


Ignore markers used 
by Final Assembly 
when code has been 
made redundant. The 
final digit indicates 
length to be ignored. 


Replaces the keyword 
IGNORE 


Pseudo-code item 
which indicates that 
the number of bytes 
appearing in the 
length count must be 
ignored 


Replaces the keyword 
IN 


Replaces the keyword 
INITIAL 


Marker which precedes 
elements of arrays of 
labelvariables which 
are initialized by 
being attached to 
statements 


Replaces the keyword 
INITIAL(iteration 
factors) 


Replaces keyword 
INPUT 


Defines a store 
generated by register 
allocator which may 
be deieted by phase 
TF if unused 


Marker which precedes 
an internal binary 
integer constant 


Replaces the keyword. 
INTERNAL 


Replaces the keyword 
INTO 


Indicates the end of 
an internal library 
calling sequence 


Replaces the keyword 


ITDO' 


JMP 


KEY 


KEYED 


KEYFROM 


KEYTO 


LABEL 


LEFT 


LIKE 


LINE 


LINESIZE 


LIST 


LIST' 


LIST MARK 


LITERAL 
CONSTANT 


LOCATE 


MAIN 


MDRP 


R,T 


DO in an iterative DO 
loop 


Triple which 
terminates an 
iterative DO 
expression 


Triple indicate the 
presence of 
pseudo-code. The 
number of bytes of 
pseudo-code is 
specified in the 
first operand 


Replaces the keyword 
KEY 


Replaces keyword 
KEYED 


Replaces the keyword 
KEYFROM 


Replaces the keyword 
KEYTO 


Replaces the keyword 
LABEL 


Triple indicating a 
temporary result for 
a pseudo-variable 


Replaces the keyword 
LIKE 


Replaces the keyword 
LINE 


Replaces the keyword 
LINESIZE 


Replaces the keyword 
LIST 


Triple indicating the 
end of a list 
directed I/O list 


Marker used by Phases 
GK and GP to indicate 
the start of function 
argument list 


Indicates that the 
following two bytes 
contain a fixed 
binary constant 


Replaces the keyword 
LOCATE 


Replaces keyword MAIN 


Defines a register 
which will be 


MULTI PLE 
ASSIGN 


MVCL 


NAME 


NEW PAGE 


NOCAECK 


NO SNAP 


NOSNAP* 


NULL 


R,T 


R,T 


NULL-FUNCTION T 


ON 


OPTIONS 


ON RECORD 


OSM1 


OSM2 


R,T 


PS 


multiply dropped. 
Phase RA no-ops all 
DROP's for this 
register except the 
last 


Marker indicating 
multiple assignment 
(Replaces PL/I',") 


Defines a character 
move greater than 256 
bytes. This is 
expanded by phase QF 


Replaces the keyword 
NAME in the context 
of ON NAME 


Replaces the keyword 
NEW PAGE 


Replaces the keyword 
NOCHECK 


Replaces the keyword 
NOSNAP 


Triple which 
indicates the end of 
a NOSNAP list 


Null statement marker 


Enables TMPD's to be 
passed in text by 
phases LB and LG 
before the evaluation 
phase LS 


Replaces the keyword 
OFFSET 


Replaces the keyword 
OPEN 


Triple indicating 
offset nsed in 
optinization of DO 
loops 


Renlaces the keyword 
೦.1 


Replaces tne keyword 
OPTICAS 


Aepiaces tlie keyword 
R*CORD in the context 
ON RECORD 


Indicates that the 
twc byte operand 
field contains an 
index register 


Indicates that the 
two byte operand 


OSM3 


OUTPUT 


OVERFLOW 


PAGE 


PAGESIZE 


PASS 


PCBS 


PCC 


PFMT 


PICTURE 


PINS 


PLBS 


PLBS' 


POINTER 


PRECISION1 


PS 


AR,T 


PS 


PS 


PS 


PS 


PS 


PS 


R 


field contains a 
leteral offset 


Indicates the 
presence of a literal 
offset and an index 
register 


Replaces keyword 
OUTPUT 


Replaces keyword 
OVERFLOW 


Picture format item 


Triple which 
indicates the end of 
a P format item 


Picture format item 


Replaces the keyword 
PAGESIZE 


POINTER Assignment 


Indicates the end of 
the complete prologue 
for a procedure block 


Follows a PROC or 
BEGIN marker. Used 
to carry the prefix 
change pyte for the 
block. 


PICTURE format 


Replaces the keyword 
PICTURE 


Indicates the 
prologue insertion 
point 


Indicates the start 
of the prologue for a 
procedure block which 
is common to all 
entry points 


Indicates the end of 
the prologue of a 
procedure block which 
is common to all 
entry points 


Replaces the keyword 
POINTER 


Indicates a precision 
which has been 
written in the source 
program as '(10)', 
which may be either 
fixed or float 
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PRECISION2 


PRINT 
PRIORITY 
PSEUDO- 


VARIABLE 


PSEUDO- 
VARIABLE 


PSEUDO- 
VARIABLE ' 


PSLD 


PROC 


PROC” 


PTCH 


PUT 


READ 
REAL 


RECORD 
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R 


PS 


R,T PS 


T. PS 


Indicates a precision 
which has been _ 
written in the source 
program as '(5,2)' 
which implies fixed 


Replaces keyword 
PRINT 


Replaces the keyword 
PRIORITY 


Marker which precedes 
the parenthesized 
argument list to a 
pseudo-variable 


Code byte or triple 
indicating the start 
of a pseudo-variable 
argument list 


Triple indicating the 
end of a 
pseudo-variable 
argument list 


Indicates a 
pseudo-code 
instruction for use 
by the final assembly 
listing phase 


Replaces the keyword 
PROCEDURE 


Triple which 
terminates the 
procedure block 
triples 


Patch triple. Used 
by optimization phase 
to overwrite a triple 
in text at a point 
where code is to be 
inserted. The code 
to be inserted and 
the overwritten 
triple are held in a 
table in text blocks 


Replaces the keyword 
PUT 

Remote format 
statement marker 


Replaces the keyword 
READ 


Replaces the keyword 
REAL 


Replaces the keyword 
RECORD 


RECURSIVE 


REENTRANT 


REPLY 


RETURN 


REVERT 


REWRITE 


RPL 


RPL' 


RWA 


SECONDARY 


SECOND LEVEL 


MARKER 


SELL 


SET 


SETS 


SEQUENTIAL 


SIGNAL 


SIZE 


PS 


T,PS 


Replaces the keyword 
RECURSIVE 


Replaces the keyword 
REENTRANT 


Replaces the keyword 
REPLY 


Replaces statement 
marker 


Replaces the keyword 
REVERT 


Replaces the keyword 
REWRITE 


Code byte or triple 
indicating the start 
of a format list 
replication factor 
expression 


Triple indicating the 
end of a format list 
replication factor 
expression 


Indication of an 
addressing vector for 
use by the register 
allocator when the 
number of symbolic 
registers in use 
exceeds the amount of 
work space which has 
been allocated 


Replaces keyword 
SECONDARY 


A code byte which 
immediately precedes 
all code bytes 
appearing in the 
second level table 


Code byte or triple 
which indicates that 
a temporary variable 
is no longer required 


Replaces the keyword 
SET 


Replaces the keyword 
SETS 


Replaces the keyword 
SEQUENTIAL 


Replaces the keyword 
SIGNAL 


Replaces the keyword 
SIZE 


SKIP 


SL 


SN 


SN2 


SN3 


SNAP'. 


STATIC 


STERLING 
DECIMAL REAL 


STOP 


STREAM 


STRING 


STRING * 


STRINGRANGE 


SUB 


SUBSCRIPT 


SUBSCRIPT' 


R,T 
R,T,PS 
R,T,PS 


R,T,PS 


PS 


R 


R,T 


R,T 


Replaces the keyword 
SKIP 


Statement label 
marker.  Precedes all 
labelled statements 


Statement number 
marker.  Precedes all 
unlabelled statements 


Marker which precedes 
a second file l 
statement (See 
Appendix D.8) 


Indicates the start 
of a second file 
statement which is 
concerned with 
initializing array, 
or structure, or 
string dope vectors. 
Similar to SN2 
(Appendix D.8) except 
that there is no 
associated entry 


Triple which 
indicates the end of 
a snap list 


Replaces the keyword 


STATIC 


Marker which precedes 
a sterlinc decimal 
constant 


Replaces the keyword 
STOP 


Replaces keyword 
STREAM 


Replaces the keyword 
STRING 


Triple indicating the 
end of a string list 
used with list 
directed I/O 


Replaces the keyword 
STRINGRANGE 


Replaces the keyword 
SUB used in iSUB 
DEFINING marker 
preceding a BIT 


Marker which precedes 
the parenthesized 

subscript list of an 

array 


Triple indicating the 


SUBSCRIPT- 
RANGE 


SSB' 


SSUB 


SYSTEM 


SYSTEM' 


TASK 


THEN 


TITLE 


TMPD 


TO 


TO' 


TRANSMIT 


UNBUFFERED 


UNDEFINEDFILE 


UNDERFLOW 


UNLOCK 


UPDATE 


USES 


USNG 
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PS 


end of a subscript 
list 


Replaces keyword SUB- 
SCRIPTRANGE 


Supersubs prime 
triple. Similar to 
SUBS'. Used by 
Optimization phases 
in conjunction with 
SSUB 


Supersubs triple. 
Similar to SUBS. 
Used by Optimization 
phases 


Replaces the keyword 
SYSTEM 


Triple which 
indicates the end of 
a system list 


Replaces the keyword 
TASK 


Replaces the keyword 
THEN 


Replaces the keyword 
TITLE 


Triple indicating a 
temporary expression 
result. 


Marker replacing TO 
in the iterative DO 
Statement 

Triple which 
indicates the end of 
a TO expression 


Replaces the keyword 
TRANSMIT 


Replaces the keyword 
UNBUFFERED 


Replaces the keyword 
UNDEFINEDFILE 


Replaces keyword 
UNDERFLOW 


Replaces the keyword 
UNLOCK 


Replaces keyword 
UPDATE 


Replaces the keyword 
USES 


Indicates the 


uu? 


USSL 


VARYING 


WHILE 
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PS 


R,T 


presence of an 
assigned register 


Indicates a list of 
symbolic registers 
which need not be 
saved on branch and 
branch and link 
instructions 


Replaces the keyword 
VARYING 


Replaces the keyword 
WHILE 


WHILE' T 
WRITE R,T 
X R,T 


ZERODIVIDE R 


Triple which 
indicates the end of 
a WHILE expression 


Replaces the keyword 
WRITE 


Spacing format item 


Replaces the keyword 
ZERODIVIDE 


The (F) Compiler requires main storage for 
the following purposes : 


Compiler processing phases 
Print buffers 

Compiler control routines 
Dictionary area 

Text area 

Input/Output buffers 
Input/Output routines (BSAM) 

The main storage required by each phase 
of the compiler need be contiguous only for 
each control section. 

Curing the read-in phases a minimum of 
two dictionary blocks and two text blocks 
is available in storage simultaneously. 

During the optimization logical phase, a 
minimum of three dictionary and five text 
blocks are available in storage 
simultaneously. 

During the rest of the compilation four 


dictionary blocks and four text blocks are 
available in storage simultaneously. 
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The dictionary and text block size is 
chosen according to the amount of main 
storage available to the compiler. The 
SIZE option, interpreted at invocation 
time, provides the value used to détermine 
the block size. The space needed for large 
I/O buffers is subtracted from SIZE and the 
space remaining is used when determining 
text and dictionary block size, as detailed 
in the publication IBM System/360 PL/I (F) 
Programmer's Guide. A table contained in 
Phase AB is searched, using the SIZE option 
as an argument. When the correct entry is 
found, the block size is extracted. 


The first table shows the relationship 
between the compiler requirements and the 
text and dictionary block sizes. The 
second table details the storage allocation 
in each environment. 


prm que eae eee ಹಾಸ 1 
[Environment | Dictionary/Text | Compiler | 
| | Block Size [Requirements | 
bo 
| A | 1K | 44K - 56K | 
| B | 2K | 56K - 72K | 
| C | UK | 72K - 132K | 
| 2 | 8K | 132K - 168K | 
| E | 16K | 168K | 
L 
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Compiler Requirements and Dictionary/Text Block Relationship 


porem rem qpen e ee eee TS eem ನಾನಾ ವವ ee 
| | DURING READ-IN PHASE | AFTER READ-IN PHASE | 
—— ———— OA I--------------------—---————-- 
| Storage Allocation | ENVIRONMENT | ENVIRONMENT 2 
[ I-—-1-----—----- Trop pA 
| | A |B je | D | E | A |B | ಲಿ | D | E | 
ofA 
| OS Dynamic Storage | | | | | | | | | | 
| | | | | | 
| 7807 | 2281 2281 228| 228| 2281 2281 228| 228| 228] 228| 
| SPIE | 32| 321 32| 32] 32| 32 | 321 321 321 321 
| LCAD | 40] 40| 40 | 40| 40| 40| 40| 40| 40| 40 | 
| | | | | | | | | | | | 
| 0S Temporary Storage | | | | | | | | | | 
| | | | | | | | 
| End of Volume | 800| 800| 800| 800| 800| 800| 800] 800| 800| 800| 
| Data Management | 4894| 4894| 4894| 4894| 4894] 4894] 4894] 4894] 4894| 4E94{ 
| Compiler Control |12266|12266|12266|12266| 12266|12266|12266|12266| 12266| 12266| 
| Phase Area {16384 {16384/16384 |16384| 16384|12288|12288|12288| 12288] 12288] 
| Text Area | 2048| 8192|16384|32768| 65536| 4096| 8192|16385| 32768] 65536| 
| Dictionary Area | 2048] 8192|16384|32768| 655361 4096| 8192|16384| 32768| 65536| 
| Scratch Storage | 4096| 4096| 4096| 4096| 4096| 4096| 4096] 4096| 4096] 4096] 
| 1/0 Buffers | 1538| 1538] 15381 1538| 1538| 1538] 1538| 1538] 1538| 1538| 
}---------—-----------}-----}-----}-----}----- — hh} —- 
| TOTALS | 44374 |56662|73038105814(171340|44374| 52566|168950|101718|167254| 
SEES ES SS SES TEES SSS SS, RN ಹಿನ ಘಾ ವಿಸ EE NSE IE 
Initially, four text and four dictionary blocks, more main storage is allocated as 
blocks are allocated to the compiler (two blocks. This process continues until the 
each are allocated when only 44K bytes of spill point is reached (i.e., until all the 
storage are available to the compiler. main storage available to the compiler has 
This is then expanded to four of each at been used). If still more main storage is 
the end of the read-in phase). If the text required, the spill file (SYSUT1) is 
and/or dictionary expands to fill these opened, and blocks are written out. 
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The communications region is an area 
specified by the control routines (see 
Appendix L), and used to communicate 
necessary information between the various 
phases of the compiler. The communications 
region is resident in the first dictionary 
block throughout the compilation. 


Note: The use of the communications region 
during compile-time processing is 
described in Appendix J. 


The tables below give the following 
information for each location of the 


APPENDIX F: COMMUNICATIONS REGION 


communications region: name of location; 
offset (i.e., relative address); use (i.e., 
stages of compilation during which the 
location is in use); and a description of 
the contents. Certain locations are used 
in one capacity during part of the 
compilation, and then re-used in a 
different capacity during another part of 
the compilation. In these cases, one 
location will have two table entries: 
details of alternative usage appear in the 
columns headed ೫೩೫೮2, 0562, etc. 
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Table 1. Gimmes el i Region 


r T aa T CE E E ಇನ್ನು hee het ಸಾಧು eee ee ವಾ ವ್ಯ 
| Name 10856೬ (Dec.) | Use | Description | 
E-—--—- —————----—----—-—--- —-------------------------------—---- 
| SAVEO | 0 | ALL PHASES | Register save area a 
| SAVE1 |SAVE0+4 | ALL PHASES | Register save area | 
SAVE2 pare ETC. | ALL PHASES | Register save area | 
| ಇ ಆ e | ಆ | 
EE" Ls | ; | à | 
| SAVE15 |SAVEO*60 | ALL PHASES | Register save area | 
| ZTV | 64 | ALL PHASES | Control phase base | 
| ZTRAN1 | 68 | ALL PHASES | External to internal translate table | 
| ZTRAN2 |ZTRAN1*U | ALL PHASES | Internal to external translate table | 
| ZNXTD | 76 | ALL PHASES | Next available dictionary location | 
| ZERRD | 80 | ALL PHASES | | 
| ZERRS |ZERRD+t4 | ALL PHASES | First locations of error chains | 
| ZERRW | ZERRD+8 | ALL PHASES | | 
| ZERRC |ZERRD+12 | ALL PHASES | | 
| ZDNXT | ZERRD+16 | ALL PHASES | | 
| ZSNXT |ZDNXT+4 | ALL PHASES | Current ends of error chains | 
| ZWNXT | ZDNXT+8 | ALL PHASES | | 
| ZCNXT 12082೬ ೩2 | ALL PHASES | | 
| ZMYNAM | 112 i ALL PHASES | Name of last phase entered | 
| | 
| DICTP | 116 | ALL PHASES | l | 
| ZCNCHR | 118 | ALL: PHASES | Source column containing control | 
| | | | character | 
| ZPROCH | 120 | ALL PHASES | Chain of created procedures | 
| ZSTAT | 124 | ALL PHASES | Current statement number | 
| PAR1 | 128 | ALL PHASES | Parameter word 1 | 
| PAR2 [PAR1*4 ETC. | ALL PHASES | Parameter word 2 | 
: |. ಸ | | | 
"AE i BN | : | 
| PARS | PAR1¢28 | ALL PHASES | Parameter word 8 | 
| CORLFT | 160 | ALL PHASES | Amount of core left for compilation | 
| LKNAME | 164 | PHASE VE | Member name of module produced by | 
| | [ | compilation | 
| ZOBSAD | 172 | ALL PHASES | Address of overflow block | 
| TERMSW | 176 | ALL PHASES | Compilation terminating switch | 
| | | | | 
| OFDNAM | 178 | ALL PHASES | | 
| SPLNAM | 180 | ALL PHASES | Name of phase in control when | 
| | | |.spill file is opened | 
| ZOBNUM | 182 | ALL PHASES | Overflow block number | 
| SCNOP | 184 | ALL PHASES | Phase directory scan switch | 
| SCCNF | 185 | ALL PHASES | On if in second half of compiler | 
| ZDROLF | 186 | ALL PHASES | Overlay switch | 
| AREA | 187 | ALL PHASES | Code word for dummy routines | 
| | | | (phase AD) | 
| ZM91 | 188 | ALL PHASES | (used for Model 91 systems) | 
| PERRSW | 189 | ALL PHASES | Print error switch | 
| BERSW | 190 | ALL PHASES | *process error byte | 
| IOERSW | 191 | ALL PHASES | I/O error switch | 
| ZPAGE | 192 | ALL PHASES | Number of lines in page | 
| ZLINE | 194 | ALL PHASES | Number of characters in a line | 
| ZOPT | 196 | ALL PHASES | Code word of loading of optimizing | 
[ | | | phases | | 
| PARMLEN | 197 | ALL PHASES | Length of options field in * - process| 
: | | card 
| MAXFON | 198 | ALL PHASES | Number of offset slots in a ಘಾ 
| | | | block 
| ZDICTSP| 200 | ALL PHASES | Useful dictionary block size | 
Lcd aid i cs er ವು ಹವ ad 


Note: If a program interrupt occurs both 


interrupt PSW. 
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LKNAME and CORLFT are overwritten by the 


Table 1. Communications Region (cont'd) 


ತನ ಹಾತ್‌ ee ರಾವರ ವಂತ ನಭಭ ಕ ಪಕ ಇಷ ಕಪಪಪ ದಾ ನಾನಾಗ ವಷ. 
| Name [offset (Dec.) | Use | Description | 
pe rn a a a a ಮಾ ಅವವ ವಾ ಎತ್ಥ 
| ZNXTOF | 204 | ALL PHASES | Offset of next dictionary entry 

| ೫೦೫೦೯ | 208 | ALL PHASES | Offset of offset slots in dictionary | 
| | | | block | 
| FSTDRF | 212 | ALL PHASES | Dictionary reference of last diction- | 
| | | | | ary entry | 
| ERCODE | 224 | ALL PHASES | Error message codes | 
| MCSIZE | 228 | ALL PHASES | M/CSIZE this run | 
| CCCODE | 232 | ALL PHASES |.Control card requests | 
| | | eae | (see table 4 below). | 
| HDR | 236 | ALL PHASES | Address of phase directory | 
| TLR | 240 | ALL . PHASES | Timer last read | 
| TRT | 244 | ALL PHASES | Total run time | 
| ARINT | 248 | ALL PHASES | Arithmetic interrupt | 
| BR2 | 252 | ALL PHASES | Second base for control phase | 
| STARTX | 256 | ALL PHASES | Start of text | 
| DICTSZ | 260 | ALL PHASES | Dictionary block size | 
| 727752 | 264 | ALL PHASES | Space available in text block | 
| RDSIZE | 268 | ALL PHASES | SIZE of read area | 
| INCOD | 272 | ALL PHASES | Interrupt code | 
| ARMASK | 273 | ALL PHASES | Arithmetic error mask | 
| LOCK | 274 | ALL PHASES | Dictionary lock slot | 
| ZNXTLC | 276 | ALL .PHASES | End of current text | 
| ZSHIFT | 280 | ALL PHASES | Number of bits in dictionary reference| 
| 1 | | offset | 
| ZMASK (| 284 | ALL PHASES | Mask to remove block numbers | 
| ZMASK1 |ZMASK + 2 | ALL PHASES | Mask to remove offset | 
| ZSOR | 288 | ALL PHASES | Input record source | 
| ZMAG | 290 | ALL PHASES | Input record margin | 
| CCCODEE | 292. | ALL PHASES | Control card requests | 
| ZCOMM | 308 | ALL PHASES | | 
ಓ zi 
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Table 2. Communications Region 


r7-7----—.T-------— 


| | Dec. | Use | | | Use. | | 
| Name | Offset [----—---- Trt -| Description |Nameg }----- -17-----] Descriptions | 
| | | Start End | | |Start | End | | 
~-~~--}--------}----—--— }----------}-------------- $------ $--—--- ł------ }----------~--- 1 
| ZCALLC | 2COMM+ O| Read in | BCD to | 5೩೫ of CALL | | | | | 
|Dict. Ref. [chain | | | | | 

| ZLABTB | + 4|Read in {Initial [Start of label| | | | | 
[2 3] | | | chain | | | | | 
| ZATTID| +8 | | {Pointer to | ZPCOP | | | | 
| | | | | attribute | | | | | 
| | | |tidy-up area | | | | | 

| ZALLCH | *12|Read in [ALLOCATE *[Start of | | | | | 
| | | {Attribute |ALLOCATE chain| | | | | 
| ZFLAG1 | +16|Read in {Dictionary| Flag bytes, | | | | | 
| ZFLAG 2 | *17| | [mainly used | | | | | 
| ZF LAG 3 | +18 | | |for optional | | | | | 
| ZELAGS | *19| | | phase | | | | | 
| ZFLAGS | *20| { {marking (see | ZSYSOT|Pseudo|Pseudo|Dict. Ref. | 
| | | | [table 3 below) | [code |code |SYSOUT | 
| ZFLAG6 | +21| FU [QU | Unaligned | | | | | 
| I | | | (see Table 3) | | | | | 
| UNUSED | *21| mE | | | | | | 
| | TO| | | | | | | | 
| | +23| | i | | | | | 
| ZSCRCH | +24|PD [PL | Address of | | | | | 
| | | | | 5೦೭೩೬೮೦೧ core | | | | | 
| | | | |kept across | | | | | 
| | | | | Phases | | | | | 
| UNUSED | *25| | | | | | | | 
| | TO| | | | | | | 
| | +27, O Lut | | | | | | 
| 2HASH | +28|Dictionary|Dictionary|Start of hash |ZINCL |PC. | End |INCLUDE card | 
| | | | | table | | | |pointer | 
| | +32| Not used {Not used | | ZEQTA3|Final |Assy. [Assigned | 
| | | | i | joffset table | 
| ZFATTB | +36 | Dictionary Declare {Start of fact-|ZLCONS|Strge | Alloc [Last constant | 
| | [pass 2 jored attribute|ZEOCS lin STATIC. | 
| | | | | {End of STATIC | 
| ZCDIMC | +40| Dictionary |Pre- [Start constant|ZSMREG|Trans-|Pseudo|Current sym- | 
| | {translator | dimension | {lator |code |bolic register| 
| Z2FILE | +44 (Dictionary |End [Start of i | | 
| | | | second file | | | | | 
| ZDLFST | +48 | Dictionary |Storage | Defined | ZFSTEX|Strge |End |First external | 
| | lallocator |storage area | X 1೩೩3೦೦ | jitem I 
| ZDCBLD | +52|Dictionary [Dictionary| Dictionary | ZPRSIZ| Final |Assy. |Size of com- | 
| | build area | | |piled program | 
| ZMPSTK | *56|Dictionary|Translator|Program map |2SICSZ|Final |Assy. |STATIC | 
| | | stack l | | INTERNAL size | 
| 2UPIC | +60| Dictionary [Picture | Start of | ZSTALC | Final |Assy. |Storage loc- | 
| | | [processor |picture chain | | | [ation counter | 
1225003 | +64| Dictionary |End |Start of entry] | | | | 
| | | [type 1 chain | | | | | 
| ZSTACH | +68| Dictionary| End {Start of STAT-| | | | I 
| | | {Ic chain (6) | | | | | 
| ZVDIMC | +74| Dictionary |Translator| Start of vari-| | | I | 
| | | | [able dimension| | | | | 
| | | | | chain | | | | | 
| ZCONCH | *78|Dictionary|ALLOCATE |Start of con- | | | | | 
| | l [stants chain | | | | | 
Toss +80| Dictionary |Dictionary|Chain of | ZCITEM| Pre | End [Chain of cON- | 
| | | |defined items | [| trans. | | TROLLED items | 
lurken] +82| Dictionary |Dictionary| Chain of LIKE |ZEQMAX|Pseudo|End |Max. label | 
| | | | | items | |code | | number | 
ಜಾ ಸಾವ deme da mms me mam ame mmm em mun amen med wo sme cam ee SS ESE e ಟೆ 
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Table 2. Communications Region (cont'd) 











c= EES Se ee R (: a SS ney ee ey 
| | Dec. | Use | | | ೮863 | 

| Name | Offset [-—-—-—-—-——1--—-—-——-—-4 Description |Nameg j------4---—---|Descriptiona | 
| | | Start | End | | |Start | End | 

------ —}--—-——-—- }----—-- ——-¢ -—--—------—}-—-- + -----+- -—-f---—-------- 1 
| ZPOLCH| +84|Dictionary|Dictionary|Chain of POOL |ZOSMRG|Pseudo|Pseudo|End of | 
| | | | items | |code |code |optimization | 
| | | | | | |symbolic reg- | 
| | ಕು MR | | | | | isters | 
| 2DCOM1 | ZCOMM+ 86 | Dictionary | Dictionary| Latest |ZCOBOL| GB | JI |Head of COBOL | 
| | | | |dict. ref. | | | | structure | 
| | M | | | | | chain | 
| ZDCOM2 | *90|Dictionary|Dictionary|Flags for dic-| | | | | 
| | | | |tionary build | | | | | 
| | | | | interface | | | | | 
| | | | | (8 bytes) | | | | | 
| 2೧5೫೩ | ZCOMM+94| PA | UD [Head of STATIC] | | | | 
| | | | |DSA chain | | | | | 
|ZCPOFF| 2೦೦8೫] PD | UA [offset of | | | | | 
| | +100| | | first | | | | | 
| | | | [constants pool| | | | | 
| | | | jwithin static | | | | [ 
| | | | | internal. | | | | | 
|MACRON| ZCOMM| BW | TP {Macro reqd | | | | | 
| | +336| | | count | | | | | 
| | | | | (halfword) | | | | | 
| SOURCN | ZCOMM | CI | TP [Source reqd | | | | l 
| | +338| | | count | | | | | 
| | | | | (halfword) | | I | | 
| STMNTN | ZCOMM| CI | TP [Source stmt | | | | | 
| | +340| | | count | | | | | 
| | | | | Chal fword) | | | | | 
{ INSTRN | ZCOMM | TJ | TP [Object instn | | | | | 
| | +342| | | count | | | | | 
| | | | | (halfword) | | | | [ 
| BYTESN| ZCOMM | TO | TP [Object byte | | | |. | 
| | +344| | | count | | | | | 
| | | ME | (fullword | | | | | 
| ZSAV | ZCOMM| Resident  |Resident |Register save | | | | | 
| | *360|Control [Control | area | | | | 
| | | | | (18 fullwords) | | ‘| | | 
ee eR ee ಖಾಸಾ SEE ಸಾವೂ — —á ವಾ ಅಂ (a — J 





NOTE: Bytes ZCOMM+60 to ZCOMM+332 are used internally within the Read-in phase and cannot 
be assumed to be zero at exit from that phase. 
Bytes ZCOMM*336 to ZCOMM+344 are not available for re-use 
Bytes ZCOMM+104 to ZCOMM*131 are used by the generic phase IM. They are cleared 
before exit from the phase. 
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Table 3. Communications Region. Bit Usage in ZFLAGS 


| BYTE | OFFSET | BIT | BIT NAME 

| NAME | | (HEX) | 

mem ———————-————----- 

| ZFLAG1 | ZCOMM*16 | 80 | ZDEFFL 

| | | 40 | ZAWAFL 

| I | 20 | ZSECFL 

| | | 10 | ZDIMFL 

| I | 08 | ZCHKFL 

| | | 04 | ZONFL 

| | | 02 | ZSTRFL 

| | | 0೩ | 208೦೯೬ 

| | 

| ZFLAG2 | +17 | 80 | ZLIKFL 

| I | 80 | 2INTST 

| i | 20 | ZOPCFL 

| | | 10 | ZGTPFL 

| | | 08 | ZGOTFL 

| | | 08 | 2TEPFL 

| i | 02 | ZPICFL 

| | | 01 | ZISBFL 
| | | 

| ZFLAG3 | +18 | 80 | 2008800 

| | | 40 | ZSETFL 

| | | 20 | ZOSSFL 

| | | 10 | ZARGFL 

| I | 08 | ZINLFL 

| | | 04 | ZDIOFL 

| | | 02 | ZRECIO 

| | | 01 | ZINTAC 
| 

ZFLAGA | +19| 80 | ZFREE 

| | | 40 | STM256 

| | | 20 | FILEFL 

| [ | 10 | 

| | | 08 | ZPUTFL 

| | | 04 | ZGETFL 

| | | 02 | ZPTRFL 

| | | 01 | ZRODFL 
| | | 

| ZFLAGS | «20 |; 80 | 2FTASK 

| | | 80 | ZDENFL 

| | | 20 | ALCSIM 

| | | 10 | 

| | | 08 | 

| | | 08 | 

| | | 02 | 

| | Wa 

ZFLAG6 | +21 | .80 | ZUNAFL 

| | | 40 | 

| | | 20 | 

| | | 10 | 

| | | o8 | 

| | | 08 | 

| | | 02 | 

| | | 01 | 

Lee ಎಸ em arenes ಹಾ en enemas denen ae ane amen ಖೂ ಆಹಾ ಅವಾ ಅವಾ, ಹಣಾ ಆಖ ue 


456 


DESCRIPTION 
Bits are set on, on encountering:- 


| 
| 
rmn a eect aes 


DEFINED attribute 

ALLOCATE statement 

Second File statement 
Dimension attribute 
CHECK/NOCHECK prefix 

ON, SIGNAL or REVERT statement 
Structure 

DECLARE statement 


LIKE attribute 

STATIC INITIAL 

OPEN/CLOSE statement 

GET/PUT statement 

GO TO statement 

TASK/EVENT/PRIORITY options, REPLY statement 
PICTURE attribute/format item 

iSUB defining 


UNALIGNED(NONSTRING) attribute 
SETS attribute 

DELAY, DISPLAY, WAIT statement 
Argument list 

INITIAL Label 

DATA directed I/O 

RECORD I/O 

AUTO/CTL initialization 


More than 256 statements 
Files present 

Spare 

PUT DATA 

GET DATA 

Pointer Qualifier 
STATIC DSA Entry 


TASK/EVENT/PRIORITY option on a CALL statement 
Set by FT 

ALLOCATE, with second level marker 

Spare 

Spare 

Spare 

Spare 

Spare 


ON for unaligned data: set by FU 
Spare 
Spare 
Spare 
Spare 
Spare 
Spare 
Spare 


A nee 


| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| FREE statement 
| 
| 
| 
| 
[ 
| 
[ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
| 
J 


Table 4. 
in CCCODE. 
Cr ಮಾರಾ ನಂತಾ ರಾವನ ea 1 


| Byte |Bit | | 


fe —— 


0 


Communications Region. Bit usage 


hl 


0 {DUMP wanted 
not wanted 


abort has occurred 


N ë Pe 


9 
H 
o 
8 


not wanted 
wanted 


5 
z 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


not wanted 
wanted 


ಫಿ 
“ರ 
tj 
"jj 


not wanted 
wanted 


ಹು 
9 
a 
oF OP OF OP OF OF F OF 


el 
o 


means U-format 
means F-format 
records on input 


oF 


ps 


1 if track overflow 
is present 


Severity code 
Severity code 
Severity code 
Severity code 
where 0000=FLAGW 
0001=FLAGE 
0010=FLAGS 


WM SWAN 


CHAR 48 not wanted 


1 
0 wanted 
1 
0 


~d 
5 
ಕು 
o 


not wanted 
wanted 


ಗ 
| 
| 
| 
| 
| 
| 


| 
i- 
t 
| 
| 
| 
| 


ಹ 


| Byte|Bit | | 
bof 
| 2 | 0 |SOURCE 1 not wanted | 
| | | 0 wanted | 
| | | | 
| | 1 |CHK 1 not wanted | 
l | | 0 wanted | 
| | | | 
| | 2 |BCD 1 BCD input | 
| | | 0 EBCDIC input | 
| | | | 
| | 3 |SOURCE2 1 wanted | 
| | | 0 not wanted | 
| | | | 
| | 4 opr 1 wanted | 
| | | 0 not wanted | 
| | | | 
| 15 | 1 AE required | 
| | | | 
| | 6 | ೩ program check | 
| | | has occurred | 
| | | | 
| | 7 | 1 means first record | 
| | I has been read | 
}-----}-—--} —--------------------------—--| 
| 3 | 0 [STMT 1 not wanted | 
| | | 0 wanted | 
| | | | 
| | 1 |MACDCK 1 not wanted | 
| | | 0 wanted | 
| | | | 
| | 2 [COMP 1 not wanted | 
| | | 0 wanted | 
| | | | 
| | 3 | 1 macro phase now | 
| | i running | 
| | | | | 
| 14 | 1 batch record found | 
| | | 0 batch record not | 
| | | found | 
| | | | 
| 15 | ‘1 EOF record found | 
| | | 0 EOF record not found| 
| | | | 
| | 6 | not used. requirement| 
| | | 

l | 7 [NEST 1 wanted | 
| | | 0 not wanted | 
ER eke E 
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APPENDIX G: SYSTEM GENERATION 


For full details of the system generation 


process, see IBM System/360 Operating 
System: System Generation, Form C28-6554. 


During the system generation process, a 
control section named IEMAF (see Figure 13) 
is assembled containing a table consisting 
of a bit string field that is fourteen 
bytes in length, immediately followed by 
seven fixed-point values aligned on 
full-word boundaries. The first five 
fixed-point values are related to the 
compiler options LINECNT, SIZE, SORMGIN 
(start), SORMGIN (end), and PAGECTL 
(control column) respectively. The 


remaining two fixed-point values are spare 
fields not currently in use. Bits 0 to 25, 
28 to 46 and 51 to 53 in the string are 
used to specify the default status of the 
options. (Note: bit 51 is used for both 
default and delete.) Bits 54 to 81, and 83 
to 102 in the string are used to specify 
whether an option keyword is to be deleted 
or not. A "1" in the bit string means 
"yes" and a "O" means "no". The remaining 
bits in the string are spare bits not 
currently in use. Figure 1! shows the bit 
identification table associated with the 
control section. 


Lo 


SRE "Oy 
| pc B*[0 0 0 00 0 0 0 00000000^* DEFAULT — | 
| DC Bio 0000000 00000000! SWITCHES i 
l DC BIG 0000000 00000000! | 

I pog 0 09 Ooo DOO 0b 00 0*  DERME 35 i 

" DC BUS 0 0-09 0.0 00900000000 * SWITCHES | 
i DC -— 0000000 00000000 * | 
| pc B'lo 00000 0[0 00000000 SPARE SWITCHES | 
| 


DC ೫.60 

| DC ೫9999991 
| DC F'2' 

| DC ೫721 

| pc ೫೫0 

| DC F'0*' 


| 
| | DC ೫0" 
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eFigure 13. The IEMAF Control Section 
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| 
| 
| 
I 
| 
| 
| 
| 
| 
| 
| 
I 
J 


Ce re Me Te en ge ಇತ qe 
| Bit | Parameter | Bit | Paramter | Bit] 
}---4}-----—-~-------}--- ---------——--------------}---}------------------ 
| 0 | ATR 138 | ೫೦೫೫೨572 |75 | 
| 1 | NOATR |39 | COMP 176 | 
| 2 | BCD [40 | NOCOMP 177 | 
| 3 | EBCDIC |41 | OBJIN 178 | 
| 4 | CHAR60 [42 | OBJOUT 179 | 
| 5 | CHARU8 [43 | MACDCK {80 | 
| 6 | DECK |44 | NOMACDCK 188 | 
| 7 | NODECK [45 | EXTDIC 182 | 
|8 | EXTREF {46 | NOEXTDIC 183 | 
| 9 | NOEXTREF |87 | Not used {84 | 
|10 | FLAGW (48 | Not used 185 | 
|11 | FLAGE {49 | Not used 186 | 
{12 | FLAGS |50 | Not used 187 | 
|13 | LIST [51 | DEFAULT/DELETE 188 | 
{14 | NOLIST | | (Bit always 0) {89 | 
115 | LOAD {52 | LIB=REAL 190 | 
|16 | NOLOAD |53 | LIB=COMPLEX 191 | 
|17 | XREF 154 | DELETE-ATR 192 | 
[18 | NOXREF [55 | DELETE=NOATR |93 | 
|19 | SOURCE [56 | DELETE-BCD {94 | 
|20 | NOSOURCE |57 | DELETE-EBCDIC 195 | 
|21 | SOURCE2 [58 | DELETE-CHAR60 196 | 
{22 | NOSOURCE2 {59 | DELETE=CHAR48 197 | 
123 | OPT=0 [60 | DELETE=DECK 198 | 
[24 | OPT=1 {61 | DELETE-NODECK 199 | 
{25 | opr=2 {62 | DELETE=EXTREF 1100| 
[26 | Not used |63 | DELETE=NOEXTREF 11011 
|27 | Not used |64 | DELETE-FLAGW 1102| 
128 | SYNCHKE [65 | DELETE-FLAGE 1103| 
{29 | SYNCHKS 166 | DELETE=FLAGS 1104| 
{30 | SYNCHKT |67 | DELETE=LIST [105| 
|31 | OPLIST [68 | DELETE-NOLIST 1106 | 
{32 | NOOPLIST [69 | DELETE-LOAD 1107| 
|33 | STMT {70 | DELETE=NOLOAD 1108| 
|34 | NOSTMT |71 | DELETE-XREF 1109| 
[35 | MACRO |72 | DELETE-NOXREF 1110| 
[36 | NOMACRO |73 | DELETE=SOURCE 1೩3131 
|37 | NEST {74 | DELETE=NOSOURCE | | 
be ee ad D — ——————— S — ವಮ 


eFigure 14. 


Bit Identification Table 
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Parameter 


DELETE=SOURCE2 
DELETE=NOSOURCE2 
DELETE=OPT 
DELETE=LINECNT 
DELETE=LINELNG 
DELETE=SIZE 
DELETEZSORMSIN 
Not used 
DELETE=STMT 
DELETE=NOSTMT 
DELETE=MACRO 
DELETE=NOMACRO 
DELETE=COMP 
DELETE=NOCOMP 
DELETE=OBJIN 
DELETE=OBJOUT 
DELETE=PAGECTL 
DELETE=MACDCK 
DELETE=NOMAC DCK 
DELETE=EXTDIC 
DELETE=NOEXTDIC 
DELETE=OPLIST 
DELETE=NOOPLIST 
DELETE=NEST 
DELETE=NONEST 
DELETE=SYNCHKE 
DELETE=SYNCHKS 
DELETE=SYNCHKT 
Not used 

Not used 

Not used 

Not used 

Not used 

Not used 

Not used 

Not used 

Not used 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
4 
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APPENDIX H: CODE PRODUCE FOR PROLOGUES AND EPILOGUES 


The mechanism of dynamic storage management 
is described in the publication IBM 


System/360 Operating System, PL/I 


Subroutine Library Program Logic Manual. 


Part of the code required to implement 
the storage management is generated as 
prologue and epilogue code by the compiler. 
This Appendix contains annotated examples 
Of prologues and epilogues for PROCEDURE, 


BEGIN, and ON blocks. 


PROLOGUES AND EPILOGUES 


Example in PL/I 


A:I: PROCEDURE (X,Y); 
DECLARE ೫. CONTROLLED; 


ON OVERFLOW C=0; 


AB: IJK: ENTRY (೫, 2) 


e ೩ [J 94 9 8 € ಇಂ 96 


RETURN (EXPRESSION) 


END; 


BC 15,16, (0,15) 
DC A11 (1) 
DC C'A' 


SIZDSA DC F' SIZE OF DSA‘ 
STATIC DC 


A(STATIC CONTROL 
SECTION) 
STM 14,11,12, (13) 


LR 10,15 


BAL 8,GETDSA(0,10) 
MVI SWITCH(13),x'x1"' 


BC 15,COPRAM1(0,10) 


BRANCH ROUND FOLLOWING CONSTANTS 
LENGTH OF BCD 
BCD OF ENTRY POINT 


ADDRESS OP STATIC INTERNAL CONTROL SECTION 
(ONLY COMPILED FOR EXTERNAL AND ON PROLOGUES) 
SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

CALL ROUTINE TO GET DSA 

INSERT RETURN (EXPRESSION) SWITCH 

(ONLY COMPILED IF THERE IS A RETURN (EXP) 
AND THE ENTRY LABELS HAVE DIFFERENT DATA 
ATTRIBUTES) 

BRANCH TO COPY OVER PARAMETERS 


ADPRIM 


* 


GETDSA 
* 


LOOP 


IP 
COPRAM1 


ತೇತೇತೇತೇತೇ 


+ +++ 


* 


ತೇತೇಸೇಶೇತೇ 


BC 
DC 
20 
DC 


ಣ್‌ ep 


BAL 
BCR 


MVI 


BALR 


st 


L 


st 
LA 
SR 
ST 


MVI 


15,10(0,15) 
AL1 (1) 

C*I* 

A(A) 
14,11,12(13) 


10,ADPRIM(0,15) 
8,IP(0,10) 
11,STATIC(0,10) 


0,SIZDSA(0,10) 
15,32, (0,11) 


15,15 
14,13 
0,7,(0,0) 
15,15 
14,0(0,11) 


14, ADVEC+4 (15,13) 


15,4(0,15) 
0,8೦೦೨ (0,10) 
15,8 


SWITCH(13),X'x2' 


14,0(0,1) 
14,X(0,13) 
14,4(0,1) 
0,10(0,0) 

14,0 

14,0(0,14) 
14,Y(0,13) 
14,8(0,1) 

14, TARGET (0,13) 
10,A...A(0,11) 


8, COMMON(0,10) 
15,10 


96(13) ,x'80' 


10,0 
9,ADDAREA(0,13) 


9, ADVEC (0,13) 


BRANCH ROUND FOLLOWING CONSTANTS 

LENGTH OF BCD 

BCD OF ENTRY POINT 

FIRST PROLOGUE BASE ADDRESS 

SAVE STANDARD REGISTERS IN SAVE AREA OF 
CALLER'S DSA 

SET UP FIRST PROLOGUE BASE 

SET RETURN REGISTER 

SET UP STATIC DATA POINTER (ONLY IN 
EXTERNAL PROCEDURES AND ON PROLOGUES) 
GRO=SIZE OF DSA 

LOAD GR15 WITH ENTRY POINT OF IHESADA 
(UNLESS DSA IS IN STATIC, WHEN ENTRY POINT OF 
COMPILER'S 'GET DSA' ROUTINE WILL BE LOADED) 
CALL ROUTINE TO GET A NEW DSA 

POINT GR14 AT NEW DSA 

SET LOOPING VALUE = 7 

CLEAR INDEXING REGISTER 

BUMP GR14 BY 4096 

STORE GR14 IN ADDRESSING VECTOR 

BUMP INDEX REGISTER 


BRANCH ON RETURN REGISTER 

INSERT RETURN (EXP) SWITCH 

PICK UP FIRST ARGUMENT ADDRESS AND 
STORE IN X IN DSA 

PICK UP SECOND ARGUMENT ADDRESS 


POINT GR14 AT PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND PICK IT UP 

STORE OFFSET IN ೫ IN DSA 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 FROM TRANSFER VECTOR SLOT 
FOR ENTRY POINT A IN STATIC. 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO THE APPARENT ENTRY POINT 
FOR A 

SET DSA TASKING FLAG (ONLY COMPILED 
IF TASKING IN COMPILATION) 

SET UP COMMON PROLOGUE BASE 

SET GR9 TO POINT TO ADDRESSING AREA 
AT END OF DSA 

AND STORE IN ADDRESSING VECTOR. 


THE FOLLOWING CODE APPEARS 
ONLY IN THE CASE OF RECURSIVE PROCEDURES 


14,92(0,13) 
14,PR...A(12) 
14,12 
14,88(0,13) 


INITIALIZE ON SLOTS (IF 


0(13),x'8F' 


LOAD GR14 WITH THE CURRENT DISPLAY 
VALUE FOR A 
STORE IN DISPLAY UPDATE IN DSA 


GR14 = OFFSET OF DISPLAY PSEUDO-REGISTER 
STORE IN DISPLAY UPDATE IN DSA 


ANY) 
IDENTIFY DSA. 


COPY SKELETON DOPE VECTORS (IF ANY) FROM STATIC INTERNAL 
CONTROL SECTION TO REAL DOPE VECTORS IN DSA. (THERE IS ALWAYS A 
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* SKELETON FOR A REAL DOPE VECTOR), AND RELOCATE THE ADDRESSES WITH THE 


ADDRESS OF THE DSA FOR THOSE DOPE VECTORS REFERRING TO VARIABLES 
* IN THE DSA. ; 


* 


* FOR EACH VDA (VARIABLE DATA AREA) REQUIRED BY THE 
* PROCEDURE THE CODE BETWEEN THE LABELS VDA1 AND VDA2 IS 
* GENERATED 
VDA1 SR 7,7 CLEAR STORAGE ACCUMULATOR AC1 
SR 0,0 CLEAR SECONDARY DOPE VECTOR STORAGE 
* ACCUMULATOR AC2 
* FOR EACH VARIABLE IN THE VDA, THE FOLLOWING CODE IS 
* GENERATED (BETWEEN LABELS VAR1 AND VAR2). 


VAR1 EVALUATE EXTENT EXPRESSIONS (DIMENSIONS AND STRING LENGTHS) AND 

* STORE RESULTS IN DOPE VECTOR IN DSA. 

* ALIGN ACCUMULATOR AC1 ON CORRECT BOUNDARY FOR VARIABLE 

* BUMP ACCUMULATOR AC2 BY SIZE OF SECONDARY DOPE VECTOR (IF VARIABLE 
* IS DIMENSIONED AND VARYING). 

* RELOCATE ADDRESS IN VARIABLES DOPE VECTOR RELATIVE TO START OF 

* 


VDA. 
VAR2 BUMP ACCUMULATOR AC1 BY SIZE OF STORAGE REQUIRED FOR VARIABLE 
AR 0,7 ADD AC1 AND AC2 
L 15,36(0,11) LOAD GR15 WITH ENTRY POINT IHESADR 
BALR 14,15 GET VDA 
LA 1,8(0,1) BUMP VDA POINTER PAST FLAG AND CHAIN SLOTS 
AR 7,1 POINT GR7 AT FIRST SECONDARY DOPE VECTOR. 
L 18,01. .VAR(0,13) FOR EACH VARIABLE IN REGION, RELOCATE 
AR 14,1 ADDRESS IN DOPE VECTOR. 
ST 14,DV. . VAR (0,13) 
* FOR EACH DIMENSIONED VARYING ITEM IN REGION, INITIALIZE 
VDA2 SECONDARY DOPF VECTORS. 
LA 10,PROCBASE SET UP PROCEDURE BASE 


CODE (IF ANY) TO SET UP SOME ADDRESSING MECHANISMS IN E 
ADVANCE FOR USE IN PROCEDURE 


BCR 15,8 RETURN FROM COMMON PROLOGUE. 
CNOP 0,4 
AB BC 15,8(0,15) BRANCH ROUND BCD OF ENTRY POINT 
DC AL1 (2) 
DC C'AB' 
STM 14,11,12(13) SAVE REGISTERS IN CALLER'S SAVE AREA 
L 10, PROBAS (0,15) SET UP FIRST PROLOGUE BASE 
BAL 8,GETDSA (10) BRANCH AND LINK TO GET DSA AND TO SET 
* UP ADDRESSING VECTOR 
MVI SWITCH (13) ,X'X3' SET UP RETURN (EXP) SWITCH IF THERE IS 
* RETURN (EXP) AND DATA ATTRIBUTES OF 
* ENTRY LABELS DIFFER 
BC 15, COPRAM2 (0,8) BRANCH TO COPY OVER PARAMETERS 
IJK BC 15,12(0,15) BRANCH ROUND FOLLOWING CONSTANTS 
DC AL1 (3) LENGTH OF BCD 
Dc C'IJK' BCD OF ENTRY POINT 
PROBAS DC A(A) FIRST PROLOGUF BASE 
STM 14,11,12(13) SAVE REGISTERS IN CALLER'S SAVE AREA 
L. 10,PROBAS(0,15) SET UP FIRST PROLOGUE BASE 
BAL 8,GETDSA(0,10) BRANCH TO GET DSA AND SET UP 
* ADDRESSING VECTOR 
MVI SWITCH (13) ,X*X4' SET RETURN (EXP) SWITCH 
COPRAM2 3 14,0(0,1) PICK UP FIRST ARGUMENT ADDRESS 
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LOOP 


COMMON 
+ 
* 


ONSTART 


LOOP 


SR 
LH 
ST 
L 
st 
L 
57 
L 


BAL 
BC 


14,0 

14,0(0,14) 
14,Y(0,13) 
14,4(0,1) 
14,2(0,13) 
14,8(0,1) 

14, TARGET(0,13) 
10,A...A(0,11) 


8, COMMON (0,10) 
15,AE...AB(0,10) 


PICK UP PSEUDO-REGISTER OFFSET OF 
ARGUMENT AND STORE IN DSA. 

PICK UP ADDRESS OF SECOND ARGUMENT 
AND STORE IN Z 

PICK UP ADDRESS OF TARGET FIELD 

AND STORE IN DSA 

LOAD GR10 WITH ADDRESS OF FIRST BYTE 
OF PROCEDURE 

BRANCH AND LINK TO COMMON PROLOGUE 
BRANCH TO APPARENT ENTRY POINT AB 


THIS IS THE APPARENT ENTRY POINT OF A. 


THE FOLLOWING IS AN ON BLOCK PROLOGUE WHICH IS COMPILED FOR ALL 
ON BLOCKS EXCEPT IF BLOCK SPECIFIES SYSTEM 


STM 
LR 


L 
L 
L 
BALR 


BALR 


14,11,12(13) 
10,15 


11, STATIC (0,10) 


.15,32(0,11) 


0,SIZDSA(0,10) 
15,15 

14,13 

0,7(0,0) 

15,15 
14,0(0,11) 

14, ADVEC+4 (15,13) 
15,4(0,15) 

0, LOOP (0,10) 
15, COMMON (0, 10) 
F'SIZE OF DSA' 


SAVE REGISTERS 
SET PROLOGUE BASE 


SET UP STATIC INTERNAL DATA POINTER 
LOAD GR15 WITH ADDRESS OF IHESADA 
LOAD GRO WITH SIZE OF DSA 

CALL IHESADA TO GET A DSA 


SET UP ADDRESSING VECTOR IN 
DSA 


BRANCH TO INITIALIZE DSA 


A(STATIC INTERNAL CONTROL SECTION) 


10,0 


CODE IS GENERATED HERE FOLLOWING SAME PATTERN AS FOR 
A BEGIN PROLOGUE (SEE BELOW) COMMON SECTION. 


LA 


EPILOGUE FOR AN ON BLOCK 


L 
BALR 


PROLOGUE FOR A BEGIN BLOCK 


LA 
BALR 
CNOP 
STM 
BALR 
L 

L 
BALR 
LR 


SR 


10, ONSTART 


15, IHESAFA (0,11) 
14,15 


14, BEND 

15,0 

0,4 
14,11,12(13) 
9,0 

15,32(0,11) 
0,SIZDSA (0,9) 
14,15 

14,13 

0,7(0,0) 

15,15 
14,0(0,11) 

14, ADVEC#+4 (15,13) 
15,4(0,15) 

0, LOOP (0,9) 

15, COMMON (0, 9) 
F'SIZE OF DSA' 
9, ADDAREA (0,13) 


LOAD GR15 WITH ENTRY POINT TO EPILOGUE 
ROUTINE AND BRANCH AND LINK TO IT 


SET UP RETURN REGISTER 
SET UP ENTRY POINT ADDRESS 


SAVE REGISTERS IN CONTAINING BLOCK'S DSA 
SET UP PROLOGUE BASE 
LOAD GR15 WITH ENTRY POINT TO IHESADA 


GET A DSA 


SET UP ADDRESSING VECTOR FOR DSA 


SET GRG TO POINT TO ADDRESSING AREA 
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BEND 


4 d + o yH 
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ST 9,ADVEC (0,13) 
VECTOR 


AT END OF DSA AND STORE IN ADDRESSING 


THE CODE GENERATED HERE IS THE SAME AS THAT FOR A PROCEDURE PROLOGUE 
EXCEPT THAT A DIFFERENT CODE BYTE IS MOVED TO THE FIRST BYTE OF THE 


DSA; 


EPILOGUE OF A BEGIN BLOCK 
L 15, IHESAFA 
BALR 14,15 


RETURN 


(EXP) STATEMENT EXAMINES THE LOCATION 


GR10 IS NOT RESET; AND THE BCR 15,8 IS NOT GENERATED. 


LOAD GR15 WITH ENTRY POINT OF 
EPILOGUING ROUTINE AND CALL IT 


'SWITCH' IN THE DSA 


SET BY THE PROLOGUE TO DETERMINE THE CONVERSION REQUIRED ON 


THE EXPRESSION. 


POINTS TO EITHER ITS DOPE VECTOR 
OR THE STORAGE. 


'TARGET', 
(IN THE CASE OF A STRING) 
ROUTINE IHESAFA IS THEN INVOKED. 


IT THEN ASSIGNS THE CONVERTED EXPRESSION TO 
THE TARGET FIELD FOR WHICH THE LOCATION 


IN THE DSA, 


END STATEMENT (WHICH IS THE SAME AS A RETURN STATEMENT) 


L 15,IHESAFA 
BALR 14,15 


DSA OPTIMIZATION 


In compilations specifying OPT-1, if a 
PROCEDURE or BEGIN block has a DSA which 
requires less than 512 bytes of storage, 
such storage may, under certain conditions, 
be obtained from STATIC storage or from 
library workspace. To obtain a STATIC DSA, 
the block must satisfy these conditions: 


1. The block must not be re-entrant or 
recursive 


2. The block must not be nested (at any 
depth) within an ON block 


3. The block must not have the MAIN or 
TASK options 


A block which is ineligible for a STATIC 
DSA, and whose DSA will never be active 
when any new DSA is required, is allocated 
its DSA from library workspace. 


Each block requiring a DSA either in 
STATIC or in library workspace calls one of 
two compiled subroutines, instead of 
IHESAD, to allocate the storage. Either or 
both subroutines, if required, are compiled 
onto the end of the program, and are 
prefixed by the comments 'STATIC PROLOGUE 
SUBROUTINE' and 'DYNAMIC PROLOGUE 
subroutine' respectively. Entry may be 
made to the STATIC prologue subroutine at 
one of several points. 


Any block using one of these prologue 
subroutines will also use a compiled 
Epilogue subroutine, which will be called 
for the END statement of the block, or for 
a RETURN statement without an expression. 


‘subroutine will call IHESAFA. 


(The same Epilogue subroutine serves both 
STATIC and library workspace DSAs.) If 
there is any core to be freed, the Epilogue 
The Epilogue 
subroutine is also compiled onto the end of 
the program, and always immediately 
precedes the STATIC Prologue subroutine if 
this is present. 


The address of the Dynamic Prologue 
subroutine and the Epilogue subroutine are 
placed in the STATIC internal control 
section, at offsets 40 and 48 from the 
start respectively. Since the STATIC 
Prologue subroutine always follows the 
Epilogue subroutine, which is of fixed 
length, a third address slot is not 
required for it. 


Listings of the Dynamic and Static 
Prologue and the Epilogue subroutines 


* DYNAMIC PROLOGUE SUBROUTINE 
L 5,PR..IHEQLWF (12) 
LTR 5,5 
BC 8,90(15) 

L 6,PR. .IHEOINV (12) 
LTR 6,6 

BC 4,90(15) 

LR 13,5 

SR 2,2 

L 3, PR. .IHEQSLA (12) 
ST 13,PR..IHEQSLA(12) 
ST 3,4(13) 

TM 0(3),X*80° 

BC 1,52(15) 

L 3,4(3) 

B 36 (15) 

ST 13,8(3) 

L 5 ,PR..IHEQINV(12) 


4,1 (0) 


4 ,PR..IHEQINV(12) 
ST 4,84(13) 
ST 2,80(13) 
ST 2,8633) 
MVI 76 (13) , X' 00* 
ST 2,96(13) 
BR 14 
L 15,32 (11) 
BR 15 


END SUBROUTINE 


EPILOGUE SUBROUTINE 


TM 1(13),X'80" 

BC 8,60(15) 

L 2,80(13) 

LTR 2,2 

BC 7,60(15) 

c 13, PR. . IHEQSLA (12) 
BC 7,60(15) 

L 13,4(13) 

st 13,PR.. IHEQSLA (12) 
TM 0(13),Xx'80* 

BC 1,50(15) 

L 13,4(13) 

B 34(15) 

5೫ 2,833) 

LM 14, 11,12(13) 

BR 14 


L 15,A..IHESAFA 
BR 15 
* END SUBROUTINE 
+ STATIC PROLOGUE SUBROUTINE 
L 4 PR. . IHEQINV (12) 
LTR 4,4 
BC 11, 86 (15) 
L 7, PR. . THEQLWO(12) 
MVC 80(4,3) ,80(7) 
LA 4,1(4) 
ST 4 ,PR..IHEQINV(12) 
ST 4,84(3) 
MVI 76 (3) ,x*' 00* 
ST 3,8(13) 
LR 13,3 
L 3, PR. .IHEQSLA (12) 
ST 3, 4(13) 
ST 13,PR..IHEQSLA(12) 
SR 2,2 
ST 2,80(13) 
ST 2,8(13) 
ST 2,96(13) 
BR 14 
* END SUBROUTINE 
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APPENDIX I: 


DIAGNOSTIC MESSAGES 


The messages produced by the PL/I (F) 
Compiler are explained in the publication 


IBM System/360 Operating System, PL/I (F) 


Programmer's Guide. 
associates a message number with the 


particular phase and module in which the 
corresponding message is generated. 


Message 
Number 


78100037 
2788100022 
7೫81100032 
28810008 
78800052 
78100062 
78100072 
78800087 
78100097, 
7810002 
IEMO0111 
78800327 
78800337 
7281100147 
78800157 
7880062 
78800172 
78100182 
78800197 
78100202 
78800217 
78800227 
7871100237 
78110028 
78800252 
78800262 
78800277 
78800282 
78800297 
38100332 
78400337 
72800352 
78800372 
78800382 
78800392 
78100802 
71100637 
IEMO044I 
IEMOO45I 
7811004867 
78100887 
78೫1100502 
78100537 
78800527 
7814005337 
IEM0054I 
IEM0055I 
IEM0057I 
IEM0058I 
IEM0059I 
IEMOO60I 
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Logical Phase 


Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 


In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 


The following table 


CA 
CA, CL,CT 
ce 


cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cc 
cG 
CL,CP 
CL, CP 
CO 
co 
CO 
CP 
cc 
cc 
CP 
CP 


IEMOO61I 
IEMOO63I 
IEMOO6UI 
IEMOO67I 
IEMOO69I 
28800702 
28800787 
2814007 22 
28800787 
28800752 
28800762 
28800772 
28800782 
2811008032 
3281400832 
278೫4008 22 
38800832 
38800882 
28800852, 
2810090 
2880098727 
28೫00952 
28800962 
38800978 
28840099 
3381101002 
28803032 
28840102 
38801032 
28803082 
28803052 
28801062 
28808072 
78803087 
28801093 
3834014837 
288013 22 
IEMO113I 
2811031387 
38801152 
IEMO1161 
IEMO117I 
IEMO118I 
IEMO119I 
IEMO1201 
38808212 
28801222 
28801238 
28801287 
2811034257 
28801262 
28801272 
2810013282 
28803297 
28803302 
3288403332 
288013 27 
28803388 
38810357 
28803368 
388013 82 
28803392 


Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 
Read 


In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 


In 
In 
In 


In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 
In 


CP 
CO 
cc 
CL 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
CG 
cc 
CG 
CG 
CI 
CG 
CG 
CI 
CI 
CI 
CI 
CG,CI 
CI 
CI 
CI 
CM 
CI 
CI 
cc 
CC,CG 
CI,CV 
CI 
CI 
CG,CI 
CI 
CI 
CG,CM 
CI 
CL 
CI 
CM 
CL 
CM 
CM 
co 
co 
CM 
೧೦ 
CI 
CI 
CI 
CO 
CL 
CL 
CO 
CO 
CP 
CG,CI 
CO 
CP 
CP 


IEMO140I 
IEMO1411 
28803807 
28101857 
28803877 
2884014897 
78801502 
28403512 
IEMO152I 
IEMO153I 
IEMO154I 
IEMO158I 
IEMO159I 
IEMO163I 
IEMO1661 
IEMO1721 
IEMO180I 
28803832 
28802827 


2880348532 
IEMO1871I 
IEMO1911I 
IEMO193I 
28೫1403987 
3288401957 
28801982 
2884020227 
28802072 
IEMO 2081 
28802098 
2880 2338 
28802327 
328140 2131 
38802342 
3880 21632 
2884024727 
38802207 
IEMO 2211 
28802227 
3880 2231 
28802282 
328೫0 2258 
38802263 
3880 2271 
IEMO228I 
IEMO 2291 
2880 2301 
28802382 
IEM0 2321 
2880 2331 
28840 2353 
3೫802363 
28802372 
38802387 
2880 2392 
3828028032 
2880 2482 
3880 2421 
3೫೫02837 
23880 2441 
IEMO2U5I 
3880 2878 
38802548 
38802552 
2388105302 
2811053432 
38405323 
3814053332 


Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 


Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Read In 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


CO 


co 
co 


CL,CM 
co 

co 

CA 

CO 

co 

CL 

cT 
CL,CS, 
CT,CV 
cT 


CT 


cT 
CL 
CG 
CG 
ce 
cL 
CP 
CP 
cT 
cT 


cT 
CT 


CT 
CS,CT 
CT. 
CS 
cs 
cs 
CV 
CS 
cv 
CV 
CV 


CW 
cc 


EH 


EH 


28805382 
78805452 
28805362 
28805572 
2814105382 
78805397 
28805207 
7305243 
28405222 
78805232 
7838105202, 
23805253 
78805272 
೫88405 281 
38805293 
78805302 
238053 22 
7೫05332 
18805387 
2838405352 
೩೫8೫053 62% 
2318405378 
288053 81 
788053 9I 
23805803 
3281805832 
2884058 22 
28105432 
73105082 
28805857 
3238105662 
288058 72 
28805482 
IEM054 9I 
TEMO5501 
28805542 
73805522 
2884055327 
3282805503 
23405552 
28805562 
28805572 
28805582 
28805592 
33805602 
28805633 
3811056 22 
3281105632 
7೫405662 
28805652 
3884056632 
28805672 
3288105682 
2881056928 
28805702 
7೫805742 
28805727 
IEM057 31 
3188057632 
2884057373 
38805787 
2831405793 
38805602 
38805893 
3288105902 
38805932 
38805922 
28805933 
3288405982 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


EL, EK, EM 
EL, EK, EM 
EL, EK,EM 
EL, EK, EM 
EL ,EK, EM 
EL, EK, EM 
EL ,EK, EM 
EL, EK, EM 
EL, EK, EM 
EK, EL, EM 
EK, EL, EM 
EK, EL, EM 
EK, EL, EM 
EK ,EL,EM 
EP 
EP 
EP 
EP 
EK 
EL 
EL 
EL 
EL 
EL 
EP 
FI 
EW 
EW 
EW 
EW 
EW 
EW 
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2281105952 
. IEMOS96I 
78805977 
7181105987 
78805992 
18140 6023 
2818406037 
38೫06087 
IEMO6052 
1788060672 
7281106072 
78106083 
IEMO609I 
IEMO610I 
IEMO611I 
IEMO6121I 
IEMO613I 
IEMO61UI 
IEMO623I 
IEMO62UI 
IEMO625I 
IEMO6261 
IEMO628I 
IEMO629I 
IEMO630I 
IEMO 6311 
IEMO632I 
IEMO633I 
2811063487 
1811063623 
78806373 
1781106382 
3781106802 
2382406833 
IEMO6U2I 
7814106437 
28171106883 
IEMO6U5I 
IEMO6461 
88140608372 
28206537 
7281406552 
78೫1810656 
2818406572 
IEMO658I 
IEMO660I 
IEMO661I 
IEMO662I 
IEMO673I 
IEMO67UI 
IEMO675I 
IEM0676I 
3814067732 
IEMO682I 
IEMO683I 
IEMO68UI 
282೫0 6857 
7828106863 
7೫110687 
೫281106882 
2721106892 
2೫31406902 
IEMO691I 
IEMO692I 
IEMO693I 
IEMO69UI 
IEMO695I 
IEMO696I 
IEMO697I 
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Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


Pretranslator 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 


EW 
EW 


EW 

FV, Fw 
FV,FW 
FV, FW 
FV, FW 
FV, ೫% 
FV, FW 
FV, FW 


8 
FV, FW 
FV, FW 
FV 


FW 

FV, FW 
FV, FW 
FV, FW 
FV,FW 
FV, FW 
FV, FW 
FV, FW 
FV, FW 
FV,FW 


28806987 
28806992 
28807002 
28807032 
28807022 
28840703 
28807042 
28807053 
28807062 
08807072 
28807457 
28807882 
28807397 
78807202 
28807282 
28807227 
28807233 
28807282 
28807253 
28807262 
3288072732 
28807287 
28807297 
28807302 
28807313 
2884073 2 
78807338 
78807342 
38807352 
38807362 
28807372 
78807397 
2811078602 
28807432 
28407822 
28807852 
3818407862 
28807472 
2781807882 
38೫07898 
28807502 
78807517 
38807522 
2818107542 
28807558 
2814075628 
38807582 
IEMO759I 
28807602 
38807633 
78807622 
2818407698 
28807702 
28807782 
28807782 
28807792 
38807802 
28107882 
28807828 
28807862 
28807872 
2880793432 
38807922 
3881079332 
28807982 
3881079532 
28807962 
38807972 
2880798 


Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Dictionary 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 


GK 

GP ,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ,GR 
GP,GQ, GR 
GP,GQ,GR 
GP,GQ,GR 


23407992 
38808002 
3238080332 
28808022 
38808032 
3884080972 
38808052 


| 3೫808082 


Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 


GP,GQ,GR 
GP,GQ,GR 
GP, GQ, GR 
GP, GO, GR 
GP, GQ, GR 
GP,GQ,GR 
GP, GQ,GR 
GR 


IEM3052I 
IEM38U2I 
78838837 
28838852 
28836862, 
IEM3 8471 
28836482 
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Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


Control 
Control 
Control 
Control 
Control 
Control 
Control 


AL/AN 
AL/AN 
AL/AN 
AL/AN 
AL/AN 
AL/AN 
AL/AN 


IEMO806I 
IEMO807I 
88808362 
3781106377 
28808367 
78808197 
381406 201 
78110821232 
3811082378 
1781108287 
3781408257 
781408 268 
2881063232 
78808333 
2814083877 
88೫1408353 
28808362 
7884068377 
38140838 
23811084687 
2811088497 
3281108508 
2814085132 
28808522 
78808537 
3281408687 
2814086538 
2381108668 
2381108677 
3811086672 
3281108697 
38808708 
3811083737 
3881067232 
3281108737 
3821087832 
3814087573 
2881083762 
2851408772 
೫811083787 
25808798 
2೫೫1109808 
78808637 
7814088237 
3281108967 
3281408978 
2381408987 
28140899 
3281409003 
2884090332 
3281409027 
7509037 
28140906 
78809077 
78810247 
78110253 
IEM10261 
IEM10271 
IEM10281 
IEM1029I 
IEM1030I 
IEM1 0401 
28830537 
2814110568 
3281110577 
3808105832 
IEM1059I 
3811130607 


Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 


' Pretranslator 


Pretranslator 


.Pretranslator 


Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Pretranslator 
Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 

Translator 


GP, GQ, GR 
GP,GQ,GR 
GU, GV 
GU, GV 
GU, GV 
GU,GV 
GU, GV 
GU, GV 
GU, GV 
GU 
GU,GV 
GU, GV 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HF, HG 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 
HK, HL 


78810637 
28810622 
2181410637 
3181810667 
78110657 
7814106672 
2814110673 
78810687 
78810707 
IEM10711 
IEM107 21 
IEM10731 
IEM1074I 
IEM10761 
IEM1082I 
IEM1088I 
IEMIOS89I 
28810903 
IEM1O91I 
IEM1092I 
IEM11041 
28851057 
3881113067 
IEM1107I 
IEM1108I 
IEM11101 
28141131317 
IEM1112I 
IEM1113I 
IEM11141 
IEM1115I 
IEM1120I 
IEM11211I 
IEM1122I 
IEM1123I 
IEM1125I 
78812007 
IEM12101 
38812137 
88812202 
೫8812237 
2188132287 
7181415697 
78815702 
IEM15711 
3788135723 
2884157462 
7181415757 
81415682 
8188136003 
IEM16011I 
IEM1602I 
IEM1603I 
7851416047 
IEM1605I1 
IEMI6061I 
IEM1607I 
IEM1608I 
IEM16091I 
IEM16101I 
78816137 
1281416827 
IEM1613I 
IEM161UI 
IEM1615I 
IEM1616I 
IEM1617I 
IEM1618I 


Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Translator 
Aggregates 
Aggregates 
Aggregates 
Aggregate Preprocessor 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Aggregates 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Do loop optimization 
Do loop optimization 
Do loop optimization 
Do loop optimization 
Do loop optimization 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Ps eudo-code 
Pseudo-code 
Pseudo~code 
Pseudo-code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Ps eudo-code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 


LS, LT, LU 
LS 

LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 
LS, LT, LU 


LS, LT, LU 
LW 
ME 
ME 
MB 
MB 
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IEM16191 
IEM16201 
IEM16 211 
278113 6227 
IEM16241 
IEM1625I 
IEM16 261 
IEM1627I 
IEM1628I 
IEM1629I 
2811163027 
28816317 
28146327 
3281416337 
28116347 
28116357 
3281416367 
3281116377 
೫881116383 
2181116397 
78೫1116607 
3281416817 
3281116827 
18216037 
7381116047 
1781116057 
7811316087 
8281416097, 
7811165032 
3281416517 
೫181116523 
IEM1654I 


IEM1655I 


IEM16561 
IEM1 6571 
IEM16581 
IEM16701 
IEM16711I 
2811168072 
IEM1687I 
IEM1688I 
IEM1689I 
IEM16921 
IEM16931I 
IEM1695I 
IEM1 6961 
IEM1750I 
IEM17511I 
IEM1752I 
38117537 
2814175647 
3814179032 
IEM17 931 
IEM17941 
3281117953, 
3281117962 
388% 7977 
2814180032 
28818033 
3781118023 
28818033 
28118047 
37814186052 
3811180678 
2851418072 
38118087 
2814180932 
2811181027 


470 


Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


- Pseudo- code 


Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 


IEM1811I 
IEM1812I 
IEM1813I 
IEM18141 
IEM1815I 
IEM1816I 
IEM1817I 
IEM1818I 
IEM1819I 
IEM1820I 
IEM1821I 
IEM1822I 
IEM1823I 
IEM182UI 
IEM1825I 
IEM1826I 
IEM1827I 
IEM1828I 
IEM1829I 
IEM18301I 
IEM1831I 
IEM1832I 
IEM1833I 
IEM18341 
78818357 
28118367 
8818418377 
78818387 
78818397 
IEM18401 
IEM18411 
3781184637 
3788160607 
7814186857 
28016867 
28168877 
78118687 
28816897 
78818502, 
3281418607 
78816637 
3781818627 
28818707 
3818187137 
IEM187 21 
IEM1873I 
IEM187UI 
IEM1875I 
IEM23041 
IEM23051 
78823527 
28126507 
1781266032 
IEM2661I 
IEM2700I 
IEM2701I 
IEM2702I 
IEM2703I 
IEM270UI 
IEM2705I 
IEM27061 
IEM2707I 
IEM2708I 
IEM2709I 
IEM2710I 
IEM27111I 
IEM2712I 
3785261377 


Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Ps eudo- code 
Ps eudo-code 
Pseudo-code 
Ps eudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


Pseudo-code 


Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 


Constant Conversions 
Constant Conversions 


Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo- code 
Pseudo-code 
Pseudo-code 
Pseudo-code 
Pseudo-code 


Storage Allocation 
Storage Allocation 
Storage Allocation 


Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 
Register 


Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 
Allocation 


DCB Generation 


RF,RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF,RG, RH 
RF ,RG, RH 
RF, RG, RH 
RF RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
RF, RG, RH 
GA 


78828367 
78128197 
1828128202 
IEM28 211 
IEM28 227 
IEM2823I 
IEM28 24I 
IEM2825I 
281428 267 
2೫81128277 
3882628 
IEM28 291 
IEM2830I 
IEM28311 
IEM2832I 
IEM2833I 
IEM28341 
IEM2835I 
IEM28361I 
IEM2837I 
IEM2852I 
IEM2853I 
IEM28 541 
IEM28551 
IEM2865I 
IEM2866I 
IEM2867I 
IEM2868I 
IEM28811I 
IEM2882I 
IEM2883I 
IEM2884I 
IEM2885I 
IEM28861 
IEM28871I 
IEM2888I 
IEM28 971 
3811289688 
3881268997 
2314290078 
78829137 
IEM3 0881 


IEM31361- 


31491 
IEM3151I 


IEM3153I 
3811313587 
3781131567 


3281131623 


IEM31671- 


31731 


IEM31761- 


31901 


IEM31991I- 


3213I 
IEM3 5841 


IEM3840I 
IEM38411 
IEM3842I 
IEM3843I 
IEM38 44I 


DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 
DCB Generation 


Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 
Final 


Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 
Assembly 


Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 
Dictionary, 
Pass 2 


Declare 
Declare 
Declare 
Declare 
Declare 
Declare 
Declare 


Declare 


Dictionary, 


Pass 2 


Dictionary, 


Pass 2 


48 Character 
Preprocessor 


Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


Control 
Control 
Control 
Control 
Control 


Declare 


Declare 


EL 


EL 


EL 


EL 


EL 


ti 
t 


ಯ 
4 


BEEPS 


7588368857 
IEM384 61 


IEM3847I 
IEM384 81 
IEM38U9I 
IEM3850I 
IEM3851I 
IEM3852I 
IEM3853I 
IEM3855I 
78838567 
18838578 
IEM3858I 
IEM3859I 
IEM3860I 
IEM3861I 
18838627 
1814386327 
1814366687 
78838657 
78838668 
IEM3872I 
IEM3873I 
IEM387UI 
IEM3875I 
IEM38761 
IEM3877I 
IEM3878I 
IEM388 0I 
IEM3887I 
IEM3888I 
IEM3889I 
IEM38901I 
IEM3891I 
IEM3892I 
IEM3893I 
IEM389UI 
IEM3895I 
IEM38961 
IEM38971 
IEM3898I 


IEM3899I 


IEM3900I 
IEM39011I 
IEM3902I 
IEM3902I 
IEM3903I 
IEM390UI 
IEM3905I 
IEM39061 
IEM3907I 
IEM3908I 
IEM3909I 
IEM3910I 
IEM39111I 
IEM3912I 
IEM3913I 
2814139167 
IEM41061 
IEM41091 
78143327 
IEMU1151 
32814411587 
3781481217 
78881287 
IEMU1301I 
IEM41331 


Compiler 
Compiler 


Control 
Control 


Optimization 


Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 
Compiler 


Control 
Control 
Control 
Control 
Control 
control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 


Control 


Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 
Control 


Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


DES SSS SSS Bab bbb ಶಶ DSSS SESE SESS ESSE ES ESE SES 


AS 

AS, BC, BG 
BC, BG 

BG 

BC 
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IEM41341 
IEM41361 
IEMU139I 
7811814027 
7814834637 
78118140487 
2814481507 
3281441517 
3781441527 
7811418537 
ITEM41541 
IEM4i571 
IEM41601 
IEM41631 
IEM41661 
IEM41691 
IEM41721 
IEM41751 
IEM41761 
IEMU1781I 
IEM41841 
IEM41871 
7811481688 
3281181908 
3811818937 
IEM41961 
IEM41991 
IEM4 2027 
IEM4205I 
IEM4 2081 
IEM42111 
IEM4 212I 
TEM4 2141 
IEM4 2157 
IEM4 2171 
IEM42201 
IEM4 2237 
IEM4 2261 
38148 2291 
ITEM4 2321 
IEM4 2351 
IEM4 2387 
ITEM4 2411 
78144 244 
IEM4 2471 
28110 248I 
78144 2508 
378116 25332 
3781442507 
28110 2562 
7814482597 
3780142627 
IEM4 2651 
- ೫880102717 
IEM4 2771 
IEM4 2801 
IEM4 2831 
IEM4 2861 
IEM4 2897 
78114 292T 
IEM4 2958 
78114 2963 
IEM4 2981 


28144 2997 


7811483017 
28148308 
2581483078 
IEMU3101I 


472 


Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


‘Processor 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


71883137 
28143197 
2181443227 
7814432572 
3281103263 
7824043282, 
7814083337 
788033 231 
7೫81403387 
78843372 
78843807 
7843/37 
3814030637 
38084830697 
7181143527 
7811435537 
28143587 
3281443617 
2811436687 
78883677 
78144370 
38140437373 
78843768 
IEM437 91 
78843627 
28142837 
78843912, 
2781183987 
7811483977 
78140808007 
7818848037 
2871404063 
7814068077 
78846097 
2814001 27 
7814068152 
781186 217 
38106337 
2880803 67 
7814004397 
78100087 
2811485317 
3781480527 
7811040507 


78488578 . 
3811486037 


28808637 
7181808697 
78486722 
3811048737 
28840757 
78846787 
2811048837 
7808867 
7814048997 
78845028, 
7811485067 
28845057 
78184506 
78885087 
28845337 
78845107 
28685172 
7814485207 
7884452337 
7851485267, 
38845297 
2818853 28 


Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor AV 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BC 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor BC 
Processor BG 
Processor BG 
Processor BG 
Processor BG 
Processor AS 


Processor BC,BG 


Processor AS 


| 7811485357 
IEM4 5471 
2781105503 
178118 5537 
1781185597 
78885627 


Compile-time 


Compile-time 


Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


IEM45701 
IEM45721 
ITEM45741 
IEM45761 
IEM45781 
3781185807 


Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 
Compile-time 


Processor 
Processor 
Processor 
Processor 
Processor 
Processor 


BS 
BG 
BG 


BS 
BG 
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APPENDIX J: COMPILE-TIME PROCESSOR 


This appendix describes, for the 
Compile-time Processor Logical Phase, the 
internal formats of text and tables, 
communication region use, Operating System 
interfaces and compiler control interfaces. 


1. INTERNAL FORMATS OF TEXT 





The internal format of text used by the 
compile-time processor is EBCDIC. As 
source input is read into storage, 
non-macro text is moved directly into text 
blocks after translation to internal 
format.  Encoded compile-time statements 
and line numbers are also placed in text 
blocks. 


Format of a Dictionary Entry 


The compile-time processor uses a set of 
chained dictionary entries.  Hashing 
techniques are used to add an item to the 
dictionary or to search for an entry. A 
compile-time processor dictionary item is a 
variable-length item with the following 
Skeletal format: 


The fields defined in this skeleton have 
the following meaning and usage: 


LENGTH: The length of the EBCDIC name. If 
the item has no name (e.g., a 
constant) this field is zero. 


PROC NO.: The number assigned to the 
procedure in which the identifier 


was declared. Each procedure is 
assigned a unique number. The 
identifiers in the non-procedural 
text are given the procedure number 
1. The built-in function SUBSTR is 
given the procedure number 0. 


HASH-CHAIN-POINTER: The dictionary address 
of the next item on this hash 
chain. This address is zero if no 
item follows. 


TYPE: A byte which gíves the attributes of 
the entry. The bits (if on) have 
been assigned the following 
meanings: 


BIT MEANING 


fixed 

character 

bit 

entry 

label 

INCLUDE identifier 
iterative DO 
constant 


NNO EC DME O 


VALUE/VALUE-POINTER: If the item is fixed, 
this contains the value proper 
stored as a five-digit packed 
decimal number. Otherwise it 
contains a pointer to the value 
stored in IVBs. The definition of 
value for the various kinds of 
entries is given below. Fora 
fixed macro variable, this contains 
the value. For a character 
variable, it contains a pointer to 
IVBs containing the value. For a 
procedure, it points to the 
text-block location of the code. 


Byte 4 


Byte 1 Byte 2 Byte 3 
poo qoem ನಾನಾನಾ ಜಾರ್‌ ER REPRE a ನಾಕಾತ್‌ ರಾ 
Word 1 | LENGTH | PROC NO. | HASH-CHAIN-POINTER | 
Word 2| TYPE | VALUE/VALUE- POINTER | 
}---------- i-——---—---- T-—--—------ --------- i 
Word 3 | FLAGS | COUNT | 
p--------------------- Ll -4 
Word 4 | POINTERS/PARM-TYPES | 
ಮೂವಿ ಮೂವಿ ನಾಮಾ E E E r 
Word 5 | EBCDIC NAME ------> | 
— —————— ine eas E ಮೂಸ 
| | 
bo 
Word n | ------ > EBCDIC NAME | 
aia Se ac ei meee a te ESE 


474 


For a label, it points to the 
text-block location of the label. 
If references to the label are 
found before the label is 
discovered, the value pointer 
temporarily points to a chain of 
IVBs with a description of every 
GOTO transferring to this label. 
This information is processed and 
discarded when the label is found. 
For an INCLUDE identifier, it 
points to the beginning of the 
included text. 


FLAGS: This set of bits provides additional 
information about the use of the 


item. They are used as follows: 
BIT MEANING 
0 special entry bit 
1 DECLARE encountered (Phase 
BC) 
2 procedure body encountered 
(Phase BC) 
3 parameter 
4 used to indicate a procedure 
called by Phase II scan. 
5 DECLARE encountered (Phase 
BG) 
6 unused 
7 ACTIVATE bit 
8 "in-use" bit 
9 "indirect reference" bit 
10 "undefined" bit for multiple 


declarations 
11 left-hand side (LHS bit) 


This field occupies a half-word. 


COUNT: For a procedure entry, this field 
contains a count of the number of 
parameters for the procedure. For 
INCLUDE identifier it is zero 
initially, and subsequently 
contains the initial line number 
assigned to the included text. 


POINTERS/PARAM-TYPES: For a procedure, the 
field contains an encoding of the 
type information for each formal 
parameter. Two bits are reserved 
for each parameter. One indicates 
fixed; the other indicates 
character. If neither bit is set, 
this indicates that the entry 
declaration did not specify 
attributes for the parameters. 


For a label, word 4 contains two 
pointers to dictionary items. One 
points to the dictionary entry for 
the immediately embracing iterative 
DO. The second half-word contains 
a pointer to the dictionary entry 
for the immediately embracing 
INCLUDE. This provides a method of 
checking the legality of GOTOs. 


For an INCLUDE identifier, only the 
pointer to the immediately 
embracing INCLUDE is kept. 


During Phase I, word 4 is used for 
labels and simple variables to hold 
two pointers. These form a 
bi-directional chain of all labels 
and variables having the same 
procedure number which have been 
used but not defined. This 
information is used only in Phase I 
and can therefore be overlaid. 


EBCDIC NAME: A variable length field, 
containing the EBCDIC name of the 
item. If the item has no name, 
this field is not included. 


Format of an Identifier Value Block (IVB) 


To hold character and bit string values, 
some text blocks are organised into 
sub-blocks of 32 bytes each. Of these 32 
bytes, 27 are used to hold values or parts 
of values. The first byte is used to hold 
a copy of the last character in the 
preceding IVB. This copy is made to 
facilitate backup. The last four bytes 
consist of a condition code of one byte 
followed by a 3-byte chain pointer. A set 
of these sub-hlocks, chained together, is 
used to hold a value. The condition byte 
is 27 for all except the last sub-block in 
a value. In this last condition code byte 
the first bit is set to 1 to indicate 
"end-of-value." The remaining bits are a 
count of the significant bytes in the 
sub-block. There is a maximum of 27 
significant bytes in an IVB. 


The chain address is used to point to 
the next sub-block in a value. The meaning 
of the chain address in the last sub-block 
in a chain depends on how the chain is 
being used. 


These small chained sub-blocks are 
referred to as "identifier value blocks," 
or IVBs. 


Text blocks are allocated to hold IVBs 
as the need arises. Those IVBs not 
currently in use are chained together into 
an availability chain and are re-used when 
needed. 


An example of a character string value 
held in IVBs is shown. The character 
string, which starts with AB and ends with 
CD, is 28 characters long. Two IVBs are 
thus required to hold the value. The 
string AB...C is put into the first IVB, 
while the last character, D, is put into 
another IVB. The condition code byte of 
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-———-—-—-—---——---—T---1- 


| ?AB eee C | 


Low. ee LL 


«----28------ » 1 3 


the first IVB is 27. The second condition 
code byte is 10000001. The first "1" 
indicates end-of-value, while 0000001 is a 
count of the significant characters in the 
IVB. 


Besides holding character-string values, 
IVBs are used in many places by the 
compile-time processor to hold information 
which must be chained from a dictionary 
entry and which is of indefinite length. 
These uses are noted elsewhere. 


Instruction Codes for the Compile-time 
processor 


Compile-time statements are handled in two 
parts. During Phase BC, each statement is 
recognized and syntax checked. An encoded 
form of the statement is then placed into 
the current text block. During Phase BG 
these encoded statements are executed by an 
interpreter. 


All expressions are encoded in postfix 


Polish. A stack is used during Phase II to 
hold all operands. Conversions are done in 
Phase BG. 


Thus the expression (A+B)||C, for 
example, is turned into 


A B * || 


To be more explicit, it is turned into the 
instructions 


PUSH A; 
PUSH B 
ADD; 

PUSH C; 
CONCAT 


The PUSH operator pushes its operand 
onto the phase II stack. This stack 
consists of 150 full words in scratch 
storage. The first byte of each call is a 
Status byte; the last three bytes hold the 
value if the item is FIXED, a pointer if 
the item is CHARACTER or BIT, or an 
indirect reference to a dictionary entry if 
the indirect bit is on. 
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i 
0 |----»|CD//7/^^ | 10000001} ? | 
4 


| SS EEE: ಅರಾ J 


The bits of the status byte have the 
following meaning if set to one: 


BIT MEANING 


FIXED 

CHARACTER 

BIT 

Indirect reference (i.e., points 
to a dictionary entry) 

Character string value does not 
"belong" to the stack and should 
not be erased when stack is 
popped. (Shared with Phase BG 
scan.) 


+ ಟಟ ಇಲಿ 


Bits 6-8 are unused by the interpreter. 
They are reserved for Phase BG scan. 


All instructions generated by the Phase 
BC code generators begin with an operation 
byte. Depending on the operation, it may 
be followed by zero or more bytes of 
information which are intrinsically part of 
the instruction. Each instruction may have 
either or both of the characteristics STACK 
and FIXED. The definition of these 
characteristics follows: 


1. STACK. These instructions consist 
only of the one-byte operator. They 
take their operands, if any, from the 
Phase II stack. These operators 
correspond in general to the PL/I 
arithmetic and string operators. 
Depending on whether they are unary or 
binary, they use the top one or two 
items on the stack. Before these 
operands are used, they are converted, 
if necessary, in place to the required 
type. After the items are used they 
are popped from the stack. The result 
of the operation is pushed onto the 
stack. 


The conversion, the popping, and the 
pushing are all implied for a stack 
operator. 


2. FIXED LENGTH. These operations are 
followed by a fixed number of bytes -- 
usually two. These bytes, which 
usually refer to a dictionary entry, 
serve as the operand(s) of the 
instruction. 


The table below shows the operations 
that are to encode macro instructions. The 
operand description indicates only the 
general operand type for a variable-length 
item. The count byte is omitted. 


| MNEMONIC| TYPE | OPERAND DESCRIPTION | FUNCTION | 
[aoo | STACK BINARY; OPERANDS, RESULT FIXED [|a8 — ^ ^ | 
aaa | STACK eras OPERANDS, RESULT FIXED m | 
- STACK ಹ್‌ OPERANDS, RESULT FIXED ee 
ಇಹ STACK mr OPERANDS, RESULT FIXED | A/B | 
FM STACK amass OPERAND, RESULT FIXED » -B i 
a | STACK TONERY; OPERAND, RESULT FIXED ls 
mm | STACK n B CONVERTED TO TYPE OF A is -B (assignment) 
| | FIXED | | | 
re | STACK eee OPERAND, RESULT BIT T | 
NR | STACK TT OPERANDS, RESULT BIT ines | 
lon | STACK ಜ್‌ OPERANDS, RESULT BIT ee | 
|CONCAT STACK ‘Beans OPERANDS, RESULT CHAR TM | 
lagia STACK ಸತ] OPERANDS, RESULT VARY lide (equality) | 
Tem i STACK ಖಃ OPERANDS, RESULT VARY ase | 
| ra STACK TER OPERANDS, RESULT VARY laca | 
| INC FIXED asec dictionary reference — A 
eens | FIXED ತುಸು code a ABORT processing | 
aa | FIXED EN E dictionary reference " Transfer to label | 
aa FIXED ಸಸ dictionary reference US to label | 
ES | STACK ಫಾ dictionary reference |Transfer to label 
| | FIXED | lif top of stack false. | 
is STACK naui dictionary reference and |Invokes the procedure | 
| | FIXED |a one-byte argument count | | 
PN l FIXED |two two-byte dictionary references vases out of INCLUDE | 
a FIXED |Two-byte dictionary reference a A onto stack | 
ee FIXED ಕು dictionary reference ieee address of A | 
| | | ೦೧೬೦ stack | 
Jone | FIXED |Three-byte line count out line count into LINCNT | 
foe | FIXED Ta operand |Enter interpreter | 
ಚತ ಏ FIXED | 7೦ operand |Return to Phase II scan | 
di FIXED |Two-byte dictionary references Pree A 
oag FIXED |Two-byte dictionary references ಟ್‌ ೩ | 
oor FIXED ಜಃ reference poor A 
I | FIXED aetna reference TEE, the DECLARE, once | 
| I | | executed | 
LL ತೆ 


Appendix J: Compile-time Processor 


m— — ಇವಾ — a oe a— qon —ÉÓ ನಾ ಜಾವಾ ಸಾನ್‌ ಮ — ee ಧಾ re Que ee wee unm AP um ಆರಾ” =e —— — mmm aS um ವಾ ದಾ im a m n mt mud ಮಾ m m mim 


477 


Í MNEMONIC| TYPE | OPERAND DESCRIPTION FUNCTION 
}~------- $-------}------------------------------ — ———— ——— 
|cvTs | FIXED |Dictionary reference [Convert to RETURNS 
| | i lattribute 
| | 
| RETN? | FIXED (Bice onary reference Return from procedure A 
l 


— r a a SE — — com ECCE E DI ee ea sens se ಹಾ es i HM ಆಹಾ ಆಟಾ OS — ಆಹಾ t SED —— a ಇಸಾ Gas ಇವಾ ಆಸಾ A ee A A" —— ಆವಾ ee ಆನ oe — ಆಹಾ — ಎ 


|*The ASSIGN operator does not push a result. The expression result is found on 
| the PDS and is popped; the dictionary reference for the left hand side is the 
| single argument. 


| 
| ೨೦೧೮೫೩7೮ conversion for EQU, GT, and LT is as specified in IBM System/360 
| Operating System: PL/I Language Specifications. 


|*?The TRAF uses and pops the top operand on the stack. It is treated as a bit 
string for conditional transfers. 


“This handles GOTOs out of included text. At this point CLNUP is performed. The 
arguments are (a) the dictionary entry for the label to which control is to pass; 
and (b) the dictionary entry for the current INCLUDE. 


| 
| 
| 
[ 
| 
{SThe arguments for the invocation are contained on the stack. The dictionary 
| reference is to the procedure entry. 
| 
| 
I 
| 
| 
| 


6This converts the top of the stack to the attributes specified in the RETURNS 
attribute for the procedure A. 


7This terminates the invocation of procedure A and converts the value on the top 
of the stack to the attribute specified on the PROCEDURE statement. 
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2. COMMUNICATIONS REGION USE 





The region from offset 0 to offset 304 
(ZCOMM) is used as a general communications 
region throughout the compiler, including 


the compile-time processor. The region 
from ZCOMM to 20016149863 is also used by the 
compiler; however, during the compile-time 
processor phase, this region is used 
exclusively by the compile-time processing. 
The details of this usage are shown below. 
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Man ce re he ee ee 


————M— —— — ———————— 4 ——4 


Dec. 
Offset 


ZCOMM*1 


UBSTRDR | ZCOMM* 2 


ZCOMM+ 4 


| ZCOMM+ 8 
| 

| ZCOMM*12 
| ZCOMM+16 


| 
| ZCOMM+ 20 


| 
| ZCOMM* 24 . 


| 
ZCOMM+ 28 


ZCOMM?+ 32 


| 
| 
| 
| 
| 
| ZCOMM* 36 
| 
| ZCOMM+ 40 
| 
| ZCOMM+ 42 
| 
| ZCOMM* 44 
| ZCOMM+ 4 6 
| 
| ZCOMM+48 
| 
| ZCOMM+ 49 
| 
| ZCOMM* 50 
| 
| ZCOMM+ 52 


| 
| ZCOMM+ 54 
l 


| 
| ZCOMM+ 56 


| 
| ZCOMM+58 
1 


fem eee eee ew ee ಹಾ. /à e anum ಅಜಾತ ES ES ED D ಪಪ ED ಬಾನಿ ಪಾನ ಅವನನು ನನಾ ED ES ಅನಾ ಭಖ ED EES pamm TE ಆನಾವಮೂ SEED GE SED ರವಾ GES GRO A SEED ಸಾನ ಸಾ GR ನಾಂನಾ ED ED ವಾ EEE ಸ GEES GEES eee Gee Gee UEP ಮಾವಾ aE ae GNO GEES aD ನಾವಾ Gee a uuum 


N ehe N HP HP N N WN 


Byte 1: 


Note: 


Condition 


Settings 
"1" = 
"o" 


Byte 2: 


Holds dictionary reference of 0 level SUBSTR entry 


Address of character being scanned, text reference or 
absolute, right justified 


Save area for TOKPTR 


Absolute 
Absolute 
Absolute 


Absolute 


buffer, right justified 


Address of next available byte in output buffer, text 
reference or absolute, right justified 


Text reference to next free IVB, right justified 
Holds current line number, right justified 
Dictionary 
Dictionary 
Dictionary 
Dictionary. 
Current procedure number, right justified 

Next available procedure number, right justified 


Current depth count 


Code for 


Number of signifiant characters in TOKBUF, right justified 


Integer value of depth of replacement, right justified 


Hash table index for dictionary routines 


set 
off 


Bit 


not used 

PROCSW -- processing macro procedure 
FINDBIT -- SRHDIC has found dictionary item 
ERSW -- diagnostic produced in Phase II 
EFSW -- end of file encountered (input) 
LEVBIT -- processing IVB 

INCSW -- processing included text 

PH2SW -- in Phase II 


OLDINC -- processing already listed INCLUDE 
SKPSW -- indicates entry to END from PRCSCN 
NOPERCENTSW -- look ahead for % completed 
SYSOPN -- SYSLIB DCB is open 

MACRO -- indicates current macro action 
PR2SW -- indicates in macro procedure 

ARG -- indicates that Phase II is looking for 
arguments of activated procedure 


NUS WNP Oo NDUSWNHF O 


address of input buffer, right justified 
address of output buffer, right justified 
address to top of pushdown stack, right justified 


address to last significant character in input 


reference to top of "in-use" temporary stack 


reference for chaining dictionary items 
reference to INCLUDE entry being processed 


reference to DO entry being processed 


token type 


ee | 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
L 


po EE 


m ——oÓ———————————————— — 


| | Dec. | | 
| Name | offset | Length 
|ATTR | ZCOMM+60 | | 
aae eoi 4 | 
ಹ್‌ — 4 | 
‘wands TE 4 l 
ಗ ಬಜ! | 4 | 
em ಚ 4 
anys ree 1 
| OUTIVB oem | 1 
TBE |icowdo | 1 | 
ere TOT 4 | 
ಜ್‌ ಜ್‌ 4 | 
are | ZCOMM+ 96 4 l 
| MTABC €— u 
ao pert 4 
isori I, 4 | 
pn poems 4 | 
ತ ಬ 
ಇಸ ಜರ 4 
| MAXLCT ಜು 4 
ಆ 20525 4 | 
OENE ಬಟ 4 | 
scu eh] 4 | 
ಜು ಹ್‌ 2 | 
| OUTERCL ಇ 2 | 
ರೂ ಬ 2 
ot ere 2 
‘eects m 4 i 
euke lcurs] 4 | 
| TOKBUF ಮಾಟ 32 | 
be ಎ ವಾಯ ತವಾ ಸಾ ಸಪ ಪಾಸ ತ ವಾಸಾ =t 


Contents 


dm ae ae ee ee ee ee a ee a ಅರಾ dm et ee GU ಆದಾ Wu Ee ಭಾಸ ee oe MED a ಸಾ ಭೂಪ wm ee dé ce we que AE ee we ee we ಆನಾ UU m e we ee qu 


"Type" byte for dictionary routines 


Save area for GRG 


Pointer to IVB chain to be freed or obtained 


Type and value/value pointer for dictionary entries 


Pointer 
Pointer 
Current 
Current 
Current 
Current 
Current 
Current 


Address 


to header information for INBUF 


to left margin in INBUF 


busy block 
busy block 
busy block 
block used 
block used 
block used 


number 
number 
number 
in absolute 
in absolute 


in absolute 


of translate table for 


address calculation 
address calculation 
address calculation 


TOKSCN and FINDPC 


Length of text block adjusted for chain address 


Pointer to first INCLUDE buffer 


Pointer to second INCLUDE buffer 


Pointer to DCB for SYSLIB data set 


Pointer to DCB for user data sets 


Maximum line count used so far 


Pointer to next byte in which to put procedure text 
Absolute address of dictionary entry 

Pointer to level 1 SUBSTR entry 

reference 


Dictionary of procedure check list 


Dictionary reference of outer check list 


Dictionary 


Dictionary 


referer.ce 


reference 


for PROCCL cell 


for OUTERCL cell 


Dictionary reference of dictionary entry for DECIMAL 1 


Pointer to current procedure entry on PDS 


32-byte buffer, characters inserted left justified 


Appendix J: Compile-time Processor 


ee Ee eee rere EE cr SS ನಖ ಸಂತಾನ mee SE een SEES Se RED EES GSES SERED GETS SUES et GOED eee ee REEDS ee GS SS ED ES ee SE ES eS eS ED een ES cD SD NS cE ES me UD ee eee es eee ee eee eee ee ee oe eee ee ದ 


| 
| 
[ 
t 
| 
| 
i 
[ 
| 
| 
i 
! 
| 
| 
l 
i 
| 
! 
i 
i 
| 
| 
i 
i 
i 
i 
| 
[ 
I 
| 
| 
| 
| 
| 
| 
[ 
! 
| 
| 
t 
| 
[ 
1 
[ 
| 
[ 
i 
| 
i 
[ 
[ 
| 
L 


481 


re ye ಸಾ ಅಷ್ಟ rN ne a ರಾರಾ ಸಾಧ ಸರ್‌ ಹರಾ ದರಾ ರಾಣ ಕ್ಯಾ ದಾನ್‌ ನಾಸಾ ಕಾರಾ ಚಾತಕ ey Ore ಸಕ ne ut meet in 


| | Dec. | I | 
| Name | Offset | Length| Contents | 
-— — — —n————— + n= MMMM 
| HASTB |ZCOMM*300| 128 | 64 two-byte dictionary references to hash chains for named | 
| | | | items | 
|. | | 
| ೮೦೫5೮೫ | ZCOMM+428 | 2 | Dictionary reference to constant chain | 
| 
|SFECCH ಮತತ: 2 | Dictionary reference to special chain -- debugging only | 
ರರ ಮಾಸು ತೊ ಸಮಾ ಸಾವಾಸ ಜು ಸಾಜಾ ಇವವ ನಿಸಾ ಸಜಾ ವಾವಸ ಕಾಹ RAS desee ನಾ ನಮಾ eid n 
3. COMPILE-TIME PROCESSOR, OPERATING ZTV 
SYSTEM, AND COMPILER CONTROL INTERFACES 
ZMYNAM 
Although the compile-time processor makes 
considerable use of the Operating System MCSIZE 
facilities, it usually does so indirectly 
through the compiler control. However, CCCODE 
those Operating System services required to 
support the INCLUDE facility are invoked TXTSZ 
directly. Since included text is required 
to be a member of a partitioned data set, ZSOR -- column number in which to begin 
it is those data management facilities scan of input text 
which support BPAM which are used. 
Specifically the macros OPEN, FIND, CLOSE, ZMAG -- column number in which to end 
READ and CHECK are used by various parts of scan of input text 
the INCLUDE handler. Details of these 
macros can be found in IBM Systenv 360 ZTRAN1 
Operating System, Supervisor and Data | 
Management Services. The following compiler control routines 
are referenced: 
The root phase is invoked by the ZUPL RELESE 
compiler control if the MACRO option is 
specified. All subsequent communication ZURD RLSCTL 
between the compile-time phases and the 
compiler control is done by way of cells in ZUGC ZTXTRF 
the communications region. This includes 
the parameters passed to the F service ZUTXTC ZTXTAB 
routines, the decoded options which are 
tested, and the cells set to indicate the ZURC ZCHAIN 
Status of source margins and mode (EBCDIC) 
of the output. ZABORT ZALTER 
Specifically, the following cells in the ZLOADW ZDABRF 
communications region are either used or 
set: ZDICRF ZEND 
PAR1 ZUERR ZUBW 
PAR2 ZDRFAB 
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APPENDIX K: TABLE HANDLING ROUTINES FOR K PHASES 


The purpose of these routines is to permit 
the user to build, scan and otherwise 
manipulate tables in text blocks without 
any concern for physical block boundaries, 
Status of text blocks or maintaining 
pointers to first, last and current table 
entries. The routines also handle text, 
which is assumed to be a special type of 
table. 


The user may: 


1. Define a table by using the IEMKTCA 
macro to set up a TCA (task 
communication area) control block. 

The address of the TCA is always 
passed to a table handling routine and 
identifies the table concerned. Most 
TCAs will be held in the local 
communications region in phase KA. 


2. Add new entries to the end of a table. 
Table entries may be of fixed or 
varying lengths. For fixed length 
entries, the length is held in the TCA 
for the table. For varying length 
entries, the TCA contains information 
enabling the routine to determine the 
length of the entry. Fixed length 
entries may be built in storage and 
moved into the table by the routines, 
or space allocated for an entry by the 
routines and the entry built directly 
into the table. For varying length 
entries, the entry must be built in 
Storage and moved into the table by 
the routines. 


3. Scan a table either forwards or 
backwards. The user requests the 
address and text reference of the 
'next' table entry. The user may 
position a scan to the start or end of 
a table, or to some intermediate 
point. 


4. Reference individual table entries at 
random. This may be done while a 
sequential scan of the table is being 
performed, and will not affect the 
scan. 


5. Specify that a table is to be deleted. 


6. Specify that entries are to be 'locked 
in'. This means that the absolute 
address of a table entry will remain 
valid until the entry is explicitly or 
implicitly unlocked, or the table is 
deactivated. (See 7). If an entry is 
not 'locked in', any subsequent call 
to the table handling routines may 


render the absolute address returned 
for the entry invalid. The current 
entry of a sequential scan, either 
creating or reading, is automatically 
'locked in'. 


A randomly referenced entry is only 
locked by an explicit lock request. 


A current scan entry may be unlocked 
explicitly by deactivating the table, 
or implicitly by making or requesting 
the next entry, or repositioning the 
scan. 


A random entry may be explicitly 
unlocked, or implicitly unlocked by 
another random reference to the same 
table specifying lock. 


All locks are released when a table is 
deactivated. The total number of 
locked entries for all tables must not 
exceed four at any one time. 


7. Activate or deactivate a table. All 
tables are initially deactivated. 
Tables are always activated 
implicitly, initially by a request to 
add an entry to the table, and 
subsequently by any valid request for 
an operation to be performed on that 
table. 


A table may be deactivated by an 
explicit request. Deactivation causes 
all locked entries to be unlocked, and 
renders all absolute addresses of 
entries in that table invalid. 
Sequential scans are not otherwise 
affected. 


A table is implicitly deactivated by a 
request to free the table (as in 5), 
or if the table contains no locked 
entries and any call is made to the 
table handling routines. 


DESCRIPTION AND FORMAT OF 
MACRO- INSTRUCTIONS 


The IEMKTCA Macro 


This macro is used to set up a TCA (table 
control area) control block describing a 
table to be processed by the table handling 
routines. The macro has two functions: 


Appendix K: Table Handling Routines for K Phases 483 


1. Sets up global variables describing set up by a IEMKTCA macro instruction 
tables which are used by the IEMKTAB with the R operand. 
macro to generate appropriate linkages 
to the table handling routines. 


Format: 
2. Used with the R operand to set up a (F) 
TCA control block the address of which table identifier IEMKTCA [,R,]ET=(V) 
is passed to the table handling (T) 
routines to identify the table. The (,L=entry length] (,೦೧5೬ [5] (೧1) 
“table identifier’ is the same as the 
'table2 identifier' used in IEMKTAB 
macro instructions. It must also be [, NPTRS=no of scan pointers.) 
the label of a fullword containing, at (,DLF-displacement to length field] 
execution time, the address of the TCA 
Description of Parameters 
ಗದಾ ನಾಮಾ a ete ವನ ವವ a a ee ci ನಾವ Sce eund ual ers er ae ee ee ce ee ವ 1 
l Parameter H Description | 
a 
|ET-entry type | This parameter indicates the type of entry contained in the table, as | 


| | follows: 


| 
F - fixed length entries | 
V - variable length entries | 

| 


| 

| 

| 

| 

+ 1 
|L=entry length| This parameter is required if ET=F is coded, and indicates the length | 
| | of an entry. | 

4 

| 

| 

| 

| 


This parameter indicates the type of operations to be performed on the | 
table, as follows: | 
| 
S - sequential scans will be performed | 

| R - random references will be made | 
~-------~-----}------------------------------------- = ದಾದ ಪೂಸಾ = === =f 
| NPTRS=n | This parameter permits more than one sequential scan of one table to be| 
| made at one time. ‘n‘ indicates the maximum number of sequential scans] 
| which will be in progress at any one time. An individual scan is | 
| identified by coding PTR=n in the SET, SETZ or SCAN operation (see 
| 
| 
| 


| 
IEMKTAB) macro). The default value is n=1 if OPS=S or RS is coded, or | 
OPS is omitted, otherwise n=0. If ET=T is coded, this parameter must | 
be omitted and only one scan is permitted. | 
————————M (RR 
| DLF=disp. | This indicates the displacement from the first byte of the entry to | 
{to length the two byte field containing the length of the entry. It must must be| 
| field coded if ET=V is coded. | 


a ದಾ ee cee ee NEL cuum 


| 
H 
IR | This parameter is supplied only if actual code is to be generated from | 
| the macro instruction. It provides a label for the TCA which may be | 
| used in an A type address constant having the label identifier as its | 
| label. | 
4 
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Example of use: The IEMKTAB Macro 


TABLE1 DC A(ATAB1) 


This macro specifies operations to be 
TABLE1 DTCA ATAB1,ET=F, L=8, OPS-S performed on a table or tables. 
to be operated on is always specified by 
supplying the address of its TCA. 


Note: the label on the IFMKTCA 
macro-instruction statement is not 
made the label of any generated 
Statement, so no multiple definition Format: 
will result. Its only use is to 


provide a link between the two macros [label] IEMKTAB code, 


IEMKTCA and IEMKTAB. 


parameters 


Note: 'code' specifies the type of 
operation, and the parameters depend 
on this as shown below: 


po T 
| Code| Parameters | 
----- hed 
{BLDC | Table Identifier, address of entry skeleton | 
| | €,AATO=] [,SATO=] | 
E 
|BLDT | Table Identifier [,AATO=] [,SATO=] | 
— ———— n BÓ 
| | (N) | 
| DR | Table Identifier, SA-[,AATO-] [,OPT=(L)] | 
}----- j———— S — — Rd 1 
{ULDR | (Table Identifier,...) or Table Identifier | 
|-----}~--------------------------------------------—-----------] 
{SET | Table Identifier, SA-[,PTR-n] | 
bl 
| (F) | 
| 5೫72 | Table Identifier [,OPT-(B)] [,PTR=n] | 
|-----}------------------------------------------=--------------| 
| (F) | 
{SCAN | Table Identifier [,AATO-] [,SATO-] [,OPT-(B)] | 
| | (,PTR=n][,ETA=] [, TRTAB=,FBTO=] [,PSATO=] | 
}-----}----------------------------------------—---------------- 4 
|FREE | (Table Identifier,...) or Table Identifier | 
—————Ó———————————— 
|DEACT| (Table Identifier,...) or Table Identifier | 
}-----4--------------------------------------------—------—---- { 
[TEST | Table Identifier, NTA= | 
Loue SI ce Ecc —Á P" J 


Notes: 


The 'Table Identifier' operand must 
appear in the label field of a IEMKTCA 
macro-instruction physically preceding the 
IEMKTAP macro-instruction. The last three 
operands of the SCAN operation (TRTAB, 
FBTO, PSATO) only apply to text tables 
ET - T in IEMKTCA). 
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The table- 


485 


Description of Keyword Parameters 





poer ante Pannen et oer eec iU D ಪರಾನ್‌ a mem ee Hemd ಮಾಹಾ ಫಾ 7 
| Keyword | Description | 
| Parameter | | 
--~------— home 
| AATO | A register designation or address of a fullword in which the returned | 
| | absolute address is to be placed. | 
}----------- hme 4 
{SATO | Address of a three byte field in which the returned symbolic address is to| 
| | be placed. | 
ewe ಗಾರಮದ ವವಲನವಮವವವಮ ದಾದ ಬಮ ವದನ ಷಷ್ಟ ಸಕಾ ಧಾನ್‌ ಪ ಖಾ ನಾಸಾ ನ್‌್‌ 4 
[SA | Address of a three byte area containing a symbolic address. | 
ಹ ee ho 
| OPT | Options applying to this operation. The option letters may appear in any | 
| | order. | 
ಗಾತ ಹರ್‌ 
| PTR | Specifies the pointer which identifies the current record of the scan. 'n'’ 
| | must not exceed the number specified in the NPTRS parameter of the IEMKTCA| 
| | | macro-instruction. C indicates the end of table pointer for creating new | 
| | entries. | 
ಗಾ ರ್ಯಾ ರಾ 
| ETA | Specifies the address of a routine to be given control when the end of a | 
| | table is detected during a sequential scan. | 
—— — ———— ' — nnn  — Í— ——— € 
| TRTAB | Address of translate table for selective scan. | 
——————————-----—-—-——————————————————————————————————————------- — ae ee — ಯಾನಾ a m EHE pup GERE oe GER END GERD CANA ca GUN DE Rum 1 
| FBTO | Location or register in which non-zero function byte from translate | 
| | operation is to be placed. | 
————————-—— hd 
| PSATO | Address of a three byte area into which the symbolic address of the | 
| | previous entry is to be placed. | 
bod 
| NTA | Address of routine to receive control if table is null. | 


Li... LIII ಡಾ ದಾ mm m ಕಕತ ವಾ ಜಾವಾ mm m e ಅದಾದ ————À ——M— d 


Note: A register designation (absolute expression in parentheses) identifying general 
registers 2-9 may be used in the AATO, SATO, SA, ETA, FBTO, PSATO and NTA operands. 
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Description of Table Handling Operations 


poe a eat ee Pe eer Ee ey ನಾರಾ ರಾಪ್‌ ಭವ ತು EIC ec REI 1 
| Operation | Description | 
— ————————— —— 
| BLDC | Adds an entry to the end of a table. The entry is built in storage by the| 
| | user and moved to the table by the table handling routines. The routines | 
| | return the symbolic and absolute addresses of the new entry. | 
| 
The table handling routines allocate space for a new entry at the end of | 
the specified table, and return the absolute and symbolic addresses of the| 
space. The user builds his entry in the space allocated. This operation | 
can only be specified if ET=F was coded in the IEMKTCA macro-instruction. | 


PP ತಾನ au al SS anum AUD ಹಾಸ ನಾನಾ GU Cu ಅಜಾ MED qub eme auum Uo ಬವರ ಆನಾ ಅಜಾ ಅಬಲಾ ಅರವಾ ಮಾವಾ ಆಲಾ ಜಾನಾ TED ಆನನ VID «juo UND ಆನಾ ಆ MID ಆರಾ SP ಅನುವ MD QUID. ಸನ dM duis QUID dp D QUE UM cum aum MED ಹಾಸ Qu VD VEND MER iuo QUA GMUD ಮನಾ cuu ಆದಾ MD ಆದಾ cuim RD UND To cum cum um m 


The absolute address of the entry is returned. 
entry is locked in. | 


unlocked. | 


NS une ES ale anten entm vm maa ಆಂ EE cuo ಆನಾ ಲಾ ಅಧಾ ES ಬಾಜಾ ಮದಾ RS D uen um uu ಘಾ SEE ಅವಾ EE ಆದಾನು SER UND ಇವನು ED SEE SSD QUO ಅತವಾ OU) ಅವವ ಬಾನು ED ಆನಾ AUD ಅಜಾ ಅದಾ UND ಆನಾ AND ಅಂಬ ವಾ SD CP Y. ಮುದಾ ಯಾವಾ OU QUIM (UI ನಾರಾ AD pipe ಆರಾ ಸಿಐ EP ees UID UND QU qum ಆನಾ AUD ಆವಾ ಆನ ಮಾ ಇವಾ ಆಹಾ 


parameter. The next SCAN operation causes the absolute address of this | 

entry to be returned. PTR=n (see SETZ). | 
—-~~~~-~~-—— ಬಗೆ ರ +--+ + + ee 
| SETZ | The sequential scan is positioned to tbe beginning of the table if the OPT| 
| parameter is omitted or OPT=F is coded, or to the end of the table if | 
| OPT-B is coded. The next SCAN operation returns the absolute address of | 
| the first or last table entry to be returned. The PTR=n parameter | 
| indicates which sequential scan is meant if more than one is in progress | 
| at one time. 'n' may not exceed the number specified in the NPTRS | 
| parameter of the IEMKTCA macro-instruction. PTR=1 is assumed if the | 
| parameter is omitted.  OPT-B may not be coded if ET=V or T is coded in the| 
| IEMKTCA macro-instruction for the table. 
4 
| 


~-------- 


The symbolic and absolute addresses of the next entry in the table are | 
| returned. If a SET or SETZ was the last operation, the next entry is that| 
| pointed to by the SET or SETZ operations. The options F or B indicate: | 
| F a forward scan is required. This is the default. | 
| B a backward scan is required. This may only be specified if ET=F is | 
| coded in the IEMKTCA macro-instruction. | 
i- J 


Selective Scanning Facilitiy 


a a 7] 


| Code | Description | 

|FREE | One or more tables are completely| 

| | freed and deactivated. The next | 

| | operation on the table must be a | 

| | BLDC or BLDT. | 
This facility is available for text tables / 1 
only (ET-T in IEMKTCA macro-instruction). |DEACT | The table or tables are | 
The TRTAB operand identifies a 256 byte | | deactivated. All locked entries | 
translate table which is used to translate | | are unblocked and all absolute | 
the code byte of the entry. If the result | | addresses of entries rendered | 
is zero, the scan continues until the | | invalid. | 
routine exits to the ETA address. If the [ -4--------------------------------—-- 
result is non-zero, it is placed in the |TEST | Tests for a null table. If table| 
register or location identified by the FBTO | | is null, control is passed to | 
operand, and control returns to the user, | | routine identified by NTA | 
the AATO and SATO operands identifying the | | pointer. | 
selected entry. L- -———.. de -l 
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APPENDIX L: CONTROL ROUTINES 


Entry to the various compiler control 


routines is via a transfer vector. Details 
of the transfer vector appear below. 

Se ee ry 
|Hex. | | ಜ್‌ | 
loffset| Name | Description . | 
[------1--—---- d-————-———-—-------------- 1 
| 8 | ZUPL | Print a line | 
I | | | 
| c | ZURD | Read a card | 
| || | | | 
| 10 | 2000 | Get Scratch storage | 
| | | | 
| 14 | ZUTXTC | Get text block | 
[ [ | | 
| 18 | 2URC ‘| Release scratch storage | 
| | | | 
| 20 | ZABORT | Dump and go to error | 
I 1 | message routines | 
| | | | 
| 24 | ZLOADW | Load and return to | 
| | | caller | 
| | | ue" | 
| 28 | ZDICAB | Make dictionary entry. | 
| | | Absolute address | 
| | | returned | 
| | | | 
| 20 | ZDICRF | Make dictionary entry. | 
| | | Dictionary reference | 
| | | returned | 
| | | | 
| 30 | ZUERR | Make error message entry| 
| | l | 
| 34 | ZDRFAB | Convert dictionary | 
l l | reference to absolute | 
| | | address | 
| | | | 
| 38 | ZLOADX | Load with overlay and | 
| | | return to caller | 
| | | | 
| 40 | REQUEST| Give a list of phase | 
| | | names required or not | 
| | | wanted for this | 
| | | compilation | 
| | | | 
| 44 | RELESE | Release all named phases| 
| | | [ 
| 48 | RLSCTL | Release all named phases| 
| | | and pass to next phase | 
| | [ | 
| 4c | ZDUMP | Dump specified main | 
| | | storage and continue | 
basen duod ea S EUIS UN rae ero ERR RES 4 
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58 
5C 


. 60 


6u 


68. 


| 6C 
70 
74 
78 


80 


84 


88 


80 


mS c HEN 

| 

Name | Description | 

-------- T---—---------------------4 

ZTXTRF | Converts absolute | 

| address to text | 

| reference | 

| | 

ZTXTAB | Convert text reference | 

| to absolute address | 

| l | 

ZCHAIN | Find next block in chain| 
| 

ZALTER | Change text block status| 
| 

ZDABRF | Convert absolute address| 

| to dictionary reference | 

| 1] l | 

ZNALRF | Make unaligned | 

| dictionary entry. | 

| Reference returned | 

| | 

ZNALDB | Make unaligned | 

| dictionary entry. | 

| Absolute address | 

| returned | 

| | 

ZEND | Terminate job | 

| [ 

ZULF | Write on load file | 

| | 

ZUSP | Write on punch | 

I | 

ZUBW | Write on auxiliary | 

| storage | 

| | 

RLSCTLX| Release all named phases| 

| and hand control to the | 

| next phase, after having| 

| loaded it with overlay (| 

| | 

೫೫೮೦೫5 | Reconstitute | 

| instructions in IEMAL | 

l | 

DYNAMIC} Pass control to the | 

| dynamic dump routines, | 

| if required | 

| | 

IEMAL/ | Address of second | 

IEMAN | control phase | 

ಪಾವಾ ಎಕೊ ಎವ ಸನಾ ವಾ mle ವಾ 


COMPILER CONTROL ROUTINES 


| Name |Hex. | Details | 
| Offset | 
}-------- $------}-----------—---_---------------- -——-----—---—--------------------—- 4 
| RELESE | 44 | Description | 
l | | | 
| | | Deletes list of phases | 
| | | | 
| | | Parameters Passed | 
| | [ | 
| | l PAR1 byte 0 unused | 
| | | 1-3 address of list of phases to be deleted. The list of | 
| | | phase names, each of two characters, is | 
| | | terminated by the name 22 | 
| | | | 
| | | Parameters Returned | 
l | | | 
| | | None | 
}-------- $------}-----------------—-------------------------------- - 4 
| REQEST | 40 | Description | 
| | I | 
| | | Marks phases as ‘wanted’ or ‘not wanted’ | 
| | | | 
| | | Parameters Passed | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of list of phases to be marked as ‘wanted’ | 
| | | | 
| | | PAR2 byte 0 unused | 
| | | 1-3 address of list of phases to be marked as | 
| | | “not wanted' | 
| | | | 
| | | Parameters Returned I 
| I | | 
| | | None | 
I | | | 
| | | Notes | 
| | | 7 | 
| | | A phase list containing only ‘22° is effectively a null list. | 
| | | During module AM phases of the compiler are all marked as either | 
| | | normally loaded or not loaded. A phase which is normally not loaded| 
| | | is only loaded if it has previously been marked as 'wanted'. A | 
| | | phase which is normally loaded will always be loaded unless it has | 
| [ | previously been marked as ‘not wanted’ | 
CL ಮಿ ವವ ಬನವ tid 
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| Name [|Hex. | | COIN BOS Mg ಸರಕಾರ Mm rM EUM Ed IN ee eee 


Name |Hex. | Details | 
{Offset | | 


RLSCTL | 48 Description 
Deletes a list of loaded phases and passes control to next phase 


Parameters Passed 





PAR1 byte 0 unused 


1-3 address of list of phases to be deleted before next 
phase is loaded 


PAR2 byte 0 unused 
1-3 (a) zero, if next phase is to be taken from compiler 


l 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| 

| control phase directory 
| (b) address of phase name to be loaded next 
| 

| Parameters Returned (to next phase) 

| 
| 
| 
[ 
| 
| 
| 
| 
[ 


PAR1 byte 0 unused 
1-3 address of new phase load point 


Notes 





List of phases given by the address in PAR1 is deleted. Then the 
next phase is selected and loaded and control is passed to a point 


| 
+ 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 
| 
| 

two bytes from the load point of the new phase 
| 





ತ — À A ನಾವಾರು ಬನನು ಮಾನವಾ A — ಆಂವಾ MD "HUMO ಮಯನಾ ANAD HERD GENES GED OED GOED ರಾ RED NS ED cte ಪಾವಾನಾ SNS ಯಿ crum ಎಂ ND cure ಅವಾ ಆಸಾ ಬಾ SS amne ಆವಾರಾ SE ಅಲನ SED ನಾಯೂ SD ಮರಾರಿ SD ಅರವಾ ED SD ERD ಇವನಾ cus ee ಮನಾ ಅವನಾ cee ee ಆನಾ ಭಾಷ ಜಾಜ್‌ 


| 
I 
| 
| 
I-——-7--——-- nou. E NRI CIMA MEME C ee lO 
| RLSCTLX| 80 | Description 
| 

| | | Releases all named phases and passes control to next phase. The 
| | | next phase may be loaded more than once 
| | | 
| | | Parameters passed 
| I l 
| | | PAR1 byte 0 unused 
| | | 1-3 address of list of phases to be deleted before next 
| | | phase is loaded 
[ I [ 
[ | | PAR2 byte 0 unused 
| | | 1-3 (a) zero of next phase is to be taken from compiler 
| | | control phase directory 
| | | (b) address of phase to be loaded next 
| [ [ 
| | | Parameters Returned (to next phase) 
| | | 
| | | PAR1 byte 0 unused 
| | | 1-3 address of load point of new phase 
| [ | ' 
| | | Notes 
| | | l 
| I | 1. List of phases given by the address in PAR1 is deleted. The 
| | | next phase is selected and loaded and control is passed to a point 
| | | two bytes from the load point of the new phase 

| 
| | | 2. The entry point RLSCTLX does not cause the compiler control 
| | | routines to advance the pointer in the table of phases still to be 
| | | loaded, and does not cause the phase to be marked as already loaded 
| | | once 
oe ಟ್ಟು ಎ ee ces ere cae ly SS ಆಹಾ ಆಹಾಹಾ ಆಹಾ ಆಹಹಾ ಜಹಾ ಅಹಾ ce eee ne ಣಾ, a ಸಾ ಣಾ ಹಾವ, ಅಹಾ ಣಾ ಅಹಾ ಆಆ ಅವಾ ಆಖ ಆಹಾ ಖಾ ಎ “ಣಾ ಹು ಆಹಾ ಅಆ ಕಾ ಆಹಾ ಅನಾ ಅಚ ಜನಾ ಅಹಾ ES me J 
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r ems cus mms a cum umm ಜಾ T ee q————Á ee ere a oe a ಖಾಣಾ A M oe ಪಚಾ e ಇದಾ ಬೋಸ em aue dun» uem umm mb ume Gm GE ED Oe UND ee UR GE pup um Aw GM AED CUP Gp Gum AMD UO ÉD Gm» Ae Mee UR cum ED ue we ue» qus VE eu US WES cus o m ದಾ 


| 
| 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 


ee ಸಖಾ MEER auam amem mamas ಪಚಾ ಹಾಡ ಭಾಷ ee SE ED ಪಾಶ ಅಘ SD EN curo ame GE ams cmm OY mm ES mp 


Name 


ZABORT 


m m amm cum apu epum ಯಾ: ಆಣ, 


——————JA——————4-----————————————————————————————— ಅಆ — —— —— —À—À ಷು  — — ಕ ಹಾಟ — —— — — —— —— — ——— —À 


Hex. 


| | Details 


[Offset | 


ame ame ame m nm aee ae a SEEN quam. SOE EE LN ER MEER SS ರ SAD SENS ಆರಾರು SD GS SS ED ಆಂವಾ maman ಸಾಹಾ RD amem A ಸಾಜಾ cum NS SEND ನಾವು ಚಾಚಾ a auum au 


20 


Description 


Deletes currently loaded phases (after dumping if DP specified in 


parameter) and passes control to Error Fditor 


Parameters Passed 


None 





0 unused 
1 text block number 
2-3 unused 


PAR2 bytes 0-2 unused 
3 status required 
bits 0-3 unused 
4 X'4' 'busy' 
5 x'3' 'wanted' 
6 x'2'. 'not wanted’ 
7 X'1' 'free' 


Parameters Returned 


PAR2 is unaltered and may be used in successive calls without 


reloading 





1. Terminology: 


'busy' - lock into storage i.e., address preserved 


'Wanted' - information required, do not spill unless necessary 


| 
| 
I 
I 
| 
| 
| 
| 
| 
| 
| 
| 
4 
| 
| 
| 
| 
| PAR1 byte 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
[ 
| 
| 
| 
| 
| 
| 


"Not wanted' - information required, block may be spilt 
| '"Free' - information no longer required 
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| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
J 
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ಸಕ್‌ ಕಾಡ್‌ a ರ್‌ LE ಗಾರ್‌ ದಾನನ ಹಡಿದ ಭಾ ಸಾತಾರಾ ಮಾನಾ UE a ಕಾವನ ಹರಾ ಲಲನ ನಾದ 1 
| Name |dex. | Details | 
| [offset] | 
bo }----— Tolo nnn nnn nn nnn nnn nnn nnn 1 
| ZCHAIN | 58 | Description | 
| | | 

| | | Finds next text block in chain | 
| | | 

| | | Parameters Passed | 
| | | 

| | | PAR1 byte 0 unused | 
| | | 1 current block number | 
l | | 2-3 unused | 
| | | | 
| | [ PAR2 bytes 0-2 unused | 
| | | 3 status required for old block | 
| | l | 
| | | Parameters Returned | 
| | | 

| | | PAR1 byte 0 unused 
| | | 1-3 text reference of start of new plock | 
| | l | 
| | | PAR2 byte 0 unused | 
| | | 1-3 absolute address of start of new block | 
| | | | 
i | | Note | 
| | | | 
I | | The new text block is marked as busy | 
[-------- }—---- he nnn nnn nnn 1 
| ZDABRF | 60 | Description | 
| | | | 
{ | | Converts absolute address to dictionary reference | 
| | | | 
| | | Parameters Passed | 
| | | | 
| | i PAR1 bytes 0-1 unused | 
I | | 2-3 any reference in the same dictionary block | 
| | | | 
| | | PAR2 byte 0 unused I 
| | | 1-3 absolute address to be converted | 
| | | | 
| | | Parameters Returned | 
| | | | 
| | | PARL bytes 0-1 unused | 
| | | 2-3 dictionary reference corresponding to absolute | 
| | | address | 
| | | | 
| | | Notes | 
| | | | | | 
| | I 1. No check is made that this address is the start of a dictionary | 
| | | entry, or that it is any other specific point | 
| | | | 
| | | 2. No check is made that the address is in the same block as the | 
| | | dictionary reference passed. If this is the case, that is, the | 
| | | parameters passed are in error, the dictionary reference returned | 
| | | may not correspond to the address | 
LS ಹಸರ ಮೊ ಗಾಲಾ a er ae ee em ma ee te a ———À— À—ÀÀ——À———- 4 
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ZDICAB 


offset 
4 ME SESE 
| 28 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
+—---- 
| 2c 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
pl -————— 


Description 
Makes aligned dictionary entry and returns absolute address 
Parameters Passed 


PAR1 byte 0 unused 
1-3 address of entry (as built by calling phese) 


PAR2 bytes 0-1 unused 
2-3 length of entry (binary) 


Parameters Returned 


PAR1 byte 0 unused 
1-3 dictionary entry address 


PARU bytes 0-1 unused 


2-3 reference to some point in the same dictionary block 


Notes 


1. The entry built is constructed complete with code byte and 
length fields. The length passed in PAR2 is the lenath of the 
complete entry 


2. ZDICRF performs the same function and returns more information, 


with no loss in efficiency 


Description 


Makes an aligned dictionary entry and returns its dictionary 
reference and absolute address 


Parameters Passed 


PAR1 byte 0 unused 
1-3 address of entry 


PAR2 pytes 0-1 unused 
2-3 length of entry (binary) 


Parameters Returned 


PAR1 bytes 0-1 unused 
2-3 dictionary reference of entry 


PARU byte 0 unused : 
1-3 dictionary entry address 
Y 


Notes 


See ZDICAB 
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r 
| Name 


| ZDRFAB 
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| ೯೮೫. 
|Offset 
34 
uc | 
| 
| 
| 
| 
| 
| 
| 
i 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
—---- + 
6c | 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
ಸಮಸ ವಾರ 1 


Details 


—— —— —Ó— — —Ó M  —— — — M M —— —— ಚತ ಚತ —À— ಹಾಹಾ — —— e ಸಪ ಚಪ ಚೂ ಸಾನ ಫಾ M — e n € "— M ವಾ MÀ — à ee e — ನಾಮಾ  — — A a A — — a —— — 


Description 
Converts dictionary reference to absolute address 
Parameters Passed 


PAR1 bytes 0-1 unused 
2-3 dictionary reference 


Parameters Returned 


PAR1 byte 0 unused 
1-3 absolute address 


Description 
Dumps specified storage and continues 
Parameters Passei 


PAR1 byte 0  Xx'00' 
1-3 unused 


PAR3 bytes 0-3 either (a) zero 


or (b) address of a page heading to be printed 


Parameters Returned 
None 


1. The areas to be dumped, and the editing to be Gone on them, is 


given in the DUMP parameter to the compilation 


2. The dump is only produced if the two character name in ZMYNAM 
matches one of the phase names specified in the DUMP parameter 


3. The message "PHASE zz COMPLETED" is printed if 
in the DUMP parameter even thougth control is returned to the point 


of invocation in the phase 


4. The registers printed by the dump routine are not necessarily as 


when control was passed from the calling phase 


| 
| 
| 
I 
| 
i 
| 
[ 
| 
{ 
! 
[ 
l 
| 
| 
| 
[ 
| 
[ 
[ 
| 
| 
| 
[ 
| 
| 
| 
[ 
! 
| 
1 
| 
| 
| 
i 
1 
i 
| 
| 
| 
[ 
| 
[ 
i 
[ 
| 
l 
| 
[ 
| 
l 
| 
| 
| 
| 
i 
| 
| 
| 
| 


Descrintion 





Terminates compilation immediately 
Parameters Passed 
None 


Parameters Returned 


is included 


~-------- 1 


[ uA LÀ ee—— cme — — — — — — —— —À — —À — —í— GS — ST MM eee A eS ——Q —— — M SSS 


STE SE ನ್‌ ಧಾನ ದಾದಾ pe as VY ರಾನಾ E E ಗಾ Ne, oe pie ey EN ae 


| Name nex. | Details | 
| loffset | | 
E EE € 
| ZLOADN | 24 | Description | 
| | | 
| | | Loads phase and returns control to calling phase | 
| | l | 
| | | Parameters Passed | 
| | I | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of name of phase to be loaded | 
| | | | 
| | | Parameters Returned | 
| | | | 
l | | PAR1 byte 0 unused | 
| | | 1-3 address of phase load point | 
| | | 2 | 
| | | Notes | 
| | | | | 
| | | 1. Control is returned to calling phase, not to phase just loaded | 
| | | | 
| | | 2. The entry point ZLOADW causes the phase loaded to be marked as | 
| | | such, and therefore cannot be loaded again (see ZLOADX) | 
}-------- 4------ —!————————————— € €——— 1 
| ZioàDx | 38 | Description | 
l | | | 
| i | Loads phase and control is returned to calling phase | 
| l | l | 
| | | Parameters Passed | 
| | | | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of name of phase to be loaded | 
| | | | 
| | | Parameters Returned | 
| | | | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of phase load point | 
| l | | 
| | | Notes | 
| | | l | 
| | | 1. Control is returned to calling phase, not to phase loaded | 
| | | | 
l | | 2. The phase loaded may be loaded again, since it is not marked as | 
| | | loaded by this entry point (see ZLOADW) | 
m ae Pe ಜಾವ ಮಹಾ ಗ್ರಾ E a ee ಮಾಷ ಪಾಷ ಸವಮ ಎಜೆ 
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T 
| Name nex. | Details | 
| {Offset | | 
ļ-------- }------ EE 1 
| ZNALAB | 68 | Description | 
| | | | 
| ! | Makes unaligned dictionary entry and returns absolute address | 
| | | 
l | | Parameters Passed | 
| | | | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of entry | 
| | | | 
| | | PAR2 bytes 0-1 unused | 
| | | 2-3 length of entry (binary) | 
| | | | 
| | | Parameters Returned | 
| | l | 
| | | PAR1 byte 0 unused | 
| | | 1-3 dictionary entry address | 
| | | | | 
| | | PARU bytes 0-1 unused | 
| | | 2-3 reference to some point in the same dictionary block | 
| | | | 
| | | Notes | 
| | | | 
| | | 1. The entry is constructed exactly as it will appear in the | 
| | | dictionary, complete with code byte and length field | 
| | | | 
| | [ 2.  ZNALRF performs the same function and returns more information, | 
| | | with no loss in efficiency | 
}-------- }------ hoe 1 
| ZNALRF | 64 | Description | 
| [ | i 
| | | Makes unaligned dictionary entry and returns its dictionary | 
| | | reference and absolute address | 
| | | | 
| | | Parameters Passed | 
| | | | 
| | | PAR1 byte 0 unused | 
| | | 1-3 address of entry | 
| | | | 
| | | PAR2 bytes 0-1 unused | 
| | | 2-3 length of entry (binary) | 
| | | al 
| | | Parameters Returned | 
| | | | 
| | | PAR1 bytes 0-1 unused | 
| | | 2-3 dictionary reference of entry : | 
| | | | 
| | | PARU bytes 0 unused | 
| | | 1-3 dictionary entry address | 
| | ^| | 
| | | Notes | 
| | | | 
I i | 1. See ZNALAB | 
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Name  |Hex. | Details | 
{offset | | 
-------- —À —— ec 
ZTXTAB | 54 | Description | 
| | | 

| | Converts text reference to absolute address | 

| | | 

| | Parameters Passed | 

| | | 

| | PARI byte 0 X'80' if status of block to remain unchanged | 

| I not X'80' - text block set to busy | 

| | 1-3 text reference to be converted | 

| | | 

| | Parameters Returned | 

| l | 

| | PAR1 byte 0 unused | 

| | 1-3 absolute address corresponding to text reference | 
-------- —À ————————————————— P 
ZTXTRF | 50 | Description | 
| | | 

| | Converts absolute address to text reference | 

| | | 

| | Parameters Passed | 

l | | 

| | PAR1 byte 0 unused | 

| | 1 block number of text block containing absolute address | 

| | 2-3 unused | 

| | | 

| | PAR2 byte 0 unused l | 

| | 1-3 address to be converted | 

| | | 

| | Parameters Returned | 

| | | 

| | PAR1 byte 0 unused | 

| | 1-3 text reference corresponding to absolute address | 

| | | 

| | Notes | 

| | | 

| | 1. This routine is of use in only a few cases since it requires to | 

| | be passed the block number containing the absolute address, and only| 

| | returns the offset from the start of the block. This offset can be | 

| | calculated, if the text block is scanned sequentially, by | 

| i subtracting the address of the start of the block | 
— — ———————————— ÁÁ—' 
ZUBW | 78 | Description | 
| | | 

| | Writes on backing storage | 

l l | 

| | Parameters Passed | 

| po a | 

| | PAR1 byte 0 unused | 

I | 1-3 address of output record | 

l | | 

| | PAR2 bytes 0-1 unused | 

| | 2-3 length of record (binary) | 

| | | 

| | Parameters Returned | 

| | | 

| | None | 
—— —— — — ————————— el a ead 


Appendix L: Control Routines 497 


498 


———— — — —  — MÓÀ ÉÀ —— — AS ae aa a — — SN a Se ಸತಾಂ ತಾ oe € —— SD ಚಾ ua ee ee ee ee es ee UU es ee es oe ums ED eme =. m am am ee ಎದ —- ee — 


Parameters Passed 


Parameters Returned 


Notes 


Inserts diagnostic messages in dictionary 


PAR5 bytes 0-1 unused 
2-3 numeric parameter, if any (halfword binary) 


PAR6 byte 0 unused 
1-2 message number (hexadecimal) 
3 bit 0 on if text to be inserted 
1 on if statement number to be inserted 
2 on if numeric parameter to be inserted 
3 on if dictionary reference to be inserted 
4-7 severity code of message 


X'0' Termination 
X'4' Severe 

X'8' Error 

X'C' Warning 


PAR7 either: 
byte 0 unused 
1-3 address of text to be inserted 
or: byte 0-1 unused 
2-3 dictionary reference to be inserted 


PAR8 bytes 0-1 unused 
2-3 length of text to be inserted 


None 


1. When the message is printed the numeric parameter is converted 
to decimal and inserted into the message.  PAR5 is unused if bit 2 
of byte 3 in PAR6 is off 


2. Tf bit 1 is on, the statement number is taken from the ZSTAT 
slot in the communications region at the time ZUERR is called 


3. Bits 0 and 3 are mutually exclusive and if both are on in a call 
to ZUERR, the routine aborts 


4. If bit 3 is on, the dictionary reference from PAR7 is inserted 
into the message dictionary entry. The error message phases pick up 
the BCD from the dictionary entry, indicated by the reference, and 
insert it into the message 


-an m eX Á —— —— — MÀ a€— D MM Hà u— MAREA ಅವಯ. ae am uA aM ಸಾ, | 


5. If bit 0 is on, text is picked up from the address given in 
PAR7. This text is in compiler internal representation. The length| 
of the text is taken from PAR8. The maximum length of text inserted| 
into a message is 10 characters. If the length civen is greater | 
tnan 10 the text is truncated to 10 characters. If the text has | 
been truncated it is enclosed in quotes in the message | 


———————————————— 4 
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Details 


Description 

Gets scratch storage 
Parameters Passed 

PAR1 bytes 0-3 count of 512 byte blocks of storage required 
Parameters Returned 


PAR1 byte 0 unused 
1-3 address of allocated scratch storage 


PAR2 bytes 0-1 unused 
2-3 bytes of storage allocated 


Description 
Writes record to object module file (SYSLIN) 
Parameters Passed 


PAR1 byte 0 unused 


1-3 address of 72 byte area containing record to ಏಣ 


written 
Parameters Returned 
None 


Notes 


1. Tf an uncorrectable I/O error occurs on this data set the option 
LOAD is switched off, a message is produced, and the compilation 


continues without producing an object module 


2. The last 8 bytes of the record will contain: 
bytes 73-76 name of object module, taken from ZrPHA" ii 


communications region. This is set from the first 
four characters of the first entry label of the 


external procedure 
77-80 sequence number 
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fo ನಾ aaa ಸ EC TM ARA ST CHR aa a a 1 
| Name Hex. | Details | 
| |loffset| | | 
}-------- ł------ heme 1 
| ZUPL | 08 | Description | 
l | | | 
| | | Puts record out to SYSPRINT Data Set | 
| | | | 
| | | Parameters Passed | 
| l | | 
| | | PAR1 byte 0 unused . | 
| | | 1-3 address of area defining print line | 
| | | | 
| | | PAR3 bytes 0-3 zero if no secondary heading to pe printed | 
| | | or address of area defining secondary heading line | 
| | | | 
| | | Parameters Returned | 
| | | | 
| | | None | 
i | | | 
| | | Notes | 
| | | ಆಜ್‌ | 
| | | 1. Paging action is performed automatically | 
| | | | 
| | | 2. Format of area containing print line is: | 
| | | byte 0 x'00' | 
| | | 1 total length of area (binary) | 
| | | 2 ASA control character | 
| | | 3 line to be printed-EBCDIC, variable length, maximum 132 | 
| | | characters | 
f-------- 4—--—-- MM — ———————— — 1 
ZURC | 18 | Description | 

| | | 

[ | Releases scratch storage got by ZUGC | 

| | | 

| | Parameters Passed | 

| | | 

| | PAR1 bytes 0-3 count of entries to ZUGC to be released (binary) | 

| | | 

I | Parameters Returned | 

| | | 

| | None | 

| | | 

i | Note | 

| | | | 

| | The routine frees all the storage that was allocated by the last n | 

| | calls to ZUGC, where n is given by PAR1 | 

-------- bd 
ZURD | OC | Description | 

| | | 

| | Heads record from SYSIN | 

| | | 

| | Parameters Passed | 

| | | 

| | PARL byte 0 unused | 

| | 1-3 address of area into which record is to be placed | 

| | | 

| | Parameters Returned | 

| | : | 

| | PAR2 bytes 0-1 unused | 

| | 2-3 length of record returned (binary) | 
dl M—— —À)—————————————————— ವಾಚ 
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| Name |Hex. | Details 
| |Offset | 


Puts record out to SYSPUNCH 
Parameters Passed 
PAR1 byte 0 unused 
1-3 address of 72 byte area containing record to be 
written 
Parameters Returned 
None 


Notes 


1. The relevant option is PUNCH. See ZULF for other notes 


Description 
Gets new text block and optionally chains it to a current block 
Parameters Passed 
PAR1 byte 0 unused 
1-3 text reference to a current block if new one is 
to be chained 
PAR2 bytes 0-2 unused 
3 ೫*"00' no chaining 
or X'8n' chaining where n is status required for 
current block 
Parameters Returned 


PAR1 byte 0 unused 
1-3 text reference to new block 


PAR2 byte 0 unused | 
1-3 absolute address of start of new block 


Notes 
1. The new block is set to a status of 'busy' 


2. See ZALTER for definition of status of blocks 
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Indexes to program logic manuals are consolidated in the publication IBM Systen 360 


Operating System: Program Logic Manual Master Index, Form Y28-6717. 


For additional 


information about any subject listed below, refer to other publications listed for the 


same subject in the Master Index. 


abbreviations used during 
compilation 439-448 
abnormal termination 23 
absolute addresses, conversion 15 
absolute code, instruction formats 
accumulator register 64 
additions to text 40 
adjustable bounds 34 
ADV (see array dope vector) 
aggregate length table 65 
aggregates logical phase 46 
aggregates, RDV for CONTROLLED or BASED 57 
aliasing, of variables 47 
alignment, by structure processor 46 
ALLOCATE chain 29 
annotated dictionary dump 25 
annotated text dump 25 
AREA 25 
argument markers 52 
arithmetic registers 51 
array bounds 32 
array dope vector (ADV) 39 
array multipliers, calculated in structure 
processor 46 
arrays 
of string dope vectors 46 
of strings, calculations with VARYING 
attribute 46 
assigned registers 67 
ASSIGNMENT triples 59 
ATR option 39 
attribute collection area 35 
scanned for SETS 37 
attribute list, scanned 34 
attributes 
consistency 29 
consistency analyzed 31 
dictionary entries 28 
inconsistent 34 
invalid 34 : 
syntax checking in read-in phase 31 
test for consistency 32 
when printed 40 
AUTOMATIC chain 38 
housekeeping 39 
in structure processor 46 
scan in pseudo-code phase 51 
VDA 63 
auxiliary storage 17 
spilling 15 


433-434 


base registers 67 

based variable expression (BVEXP) 39 
BASED variables, RDV 57 

batch compilation 26 

BCD, translation 26 

BEGIN statements, count 29 

BLDL 26 


BLDL macro 23 
phase directory construction 386 
block control 21 
block control area 22 
block header chains 33 
block nesting levels 30 
block size 
determination of 15 
dictionary 15 
selection 22 
SIZE option 22 
text 15 
bound slot 39 
boundary alignment, by structure 
processor 46 
build list 23 
phase directory construction 386 
built-in function handler 28 
built-in functions 
EMPTY 42 
generic 33 
non-generic 33 
NULL 82 
NULLO 42 
scan for 54 
TRANSLATE 52,277 
VERIFY 53,277 
BUY ASSIGN statements, scan in pseudo-code 
phase 59 
BUY statement 42 
scan in pseudo-code phase 59 
BUY triples, in pseudo-code phase 55 
BVEXP (see based variable expression) 
BXH instruction, used to generate 
pseudo-code 47 
BXLE instruction, used to generate 
pseudo-code 47 
BY NAME option, in pretranslator phase 40 


CALL chain 29 
calling program 21 
cards, control 26.1,86 
catalogued procedures 15 
CCCODE 26 
chains 26 
ALLOCATE 29 
AUTOMATIC 38-39 
housekeeping 39 
in structure processor 46 
scan in pseudo-code phase 51 
VDA region 63 
block header 33 
CALL 29 
circular 33 
COBOL, in preprocessor 46 
constants 38,60-61 
constructed by read-in 29 
CONTROLLED 39 
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in structure processor 46 
DECLARE statements 29,35 
DEFINED scan 47 
error 69 
hash 33 
picture 34 
validity check 38 
PROCEDURE-ENTRY BEGIN 29 
STATIC 39,61 
in structure processor 46 
scan of external section 68 
SUBS TABLE 49 
symbol variables 62 
type 1 entry 68 
chamelon dummy argument 45 
chamelon temporaries 41-42 
character translation 21 
CHAR48 option 24 
check, syntax 26.1,161 
CHECK lists, formal parameters 38 
circular chains 

extended 34 

initialized 33 
Cleanup phase 27 
CLOSE statements, parameter list 57 
closing routine 26 
CNVC macro 60 
COBOL chain, mapped in preprocessor 
phase 46 


COBOL option, in ENVIRONMENT string 41 


code byte 
for TASK option 41 
GOOB 37 
GOTO 37 
statement introduction 37 
text string 17 
code 


for prologues and epilogues 460-465 


library call 46 
compiler completion 23 
dictionary 26 


comments, removed from input text 29 


common data space 48 
commoning of subscripts 48-49 
communication between phases 17,21 


communication with control program 15 


communications region 
contents 17 
Control Code word 17 
dictionary block 17 
initialization 21 
of dictionary 17 
options 17 
tables 451-457 
use 21 
ZPRNAM 67 
compare action 44 
compare weight 44 
compilation 
as a job step 15 
bypassed 28 
termination 70 
compile-time processor 15 
communications region 479-482 
constants 30 
control interfaces 482 
identifiers 30 
internal formats of text 474-478 
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logical phase 27 
operators 30 
output string 30 
SOURCE option 23 
compiler control 21-26.1 
compiler control modules 21,24-26.1 


compiler control phases, tables 75-86 


compiler control routines 15 


compiler functions, scan in pseudo-code 


phase 59 

compiler logic, guide to 71 

compiler organization and control 

diagram 20 

compiler read routine 28 

compiler 
as part of operating system 15 
completion code 23 
functions 32 
initialization 21 
invocation by calling program 21 
output data sets 15 


phases 15 
pseudo variables 32 
purpose 15 


storage requirements 15 
completion code 23 


concatenation, in 48 character set 27 


consistency of attributes 29 
consistency of options 29 
constant chain 60-61 
constants pool 60 
constants 
chain 38 
contextual use 31 
conversion to binary 37 
count 37 . 
dictionary entries 28 
in compile-time processor string 
marker 37 
contextual 
constants 31 
identifiers 31 
pictures 31 
control ` 
diagram 20 
of dictionary block 21 
of text block 21 
control cards  26.1,86 
control blocks 
DECLARE 41 
OPEN 41 
Control Code word 17,26 
control module 21,24 
control of workspace 15 
control program 15 
control routines 28 
compiler 15 
debugging 15 
diagnostic messages 23 
entry 21 
initialization 15 
input/output 15 
input/output 23 
program interruptions 15 
storage allocation 15 
storage dumping 15 
table Of 488-501 
ZUBW 27 


30 


ZURD 27 
control tables 86 
control variables in pseudo-code phase 52 
CONTROLLED chain 

scan 39 

in structure processor 46 


Index 504.1 


CONTROLLED variables, RDV 57 
CONV macro 60 
CONV pseudo-code macro 59 
conversion 
absolute addresses 15 
constants to internal form 60 
input characters 28 
symbolic references 15 
of built-in functions 42 
of character codes 30 
- ೦೯ constants 37 
of precision data 34 
of replication factors 52 
to EBCDIC 28 
to internal code 28 
to triples 44 
48 to 60 character symbols 
CONVERT pseudo-code macro 60 
correction of syntactical errors 29 
correspondence defining 47 
count stack 37 
count, of constants 37 


26. 1 


Data Element Descriptor (DED) 37 
for symbol variables 62 
data flow diagram 16 
data sets 
compiler output 15 
data flow diagram 16 
INCLUDE 27 
input/output 15 
input/output usage table 24 
interface with compiler phases 23 
opening 21 
SYSIN 15 
SYSLIN 15 
SYSPRINT 15 
SYSPUNCH 15 
SYSUT1 15 
SYSUT3 15 
TRACEOUT 26 
DD statement 15 
debugging 
control routines 15 
features 26 
DECLARE chain 29 
: DECLARE control block 41 
DED (see Data Element Descriptor) 


. default rules, in dictionary entries 34 


DEFINED chain check 46 

DEFINED chain, scan 47 

DEFINED data 39 

DEFINED items, in aggregates phase 47 
defined references 39 

defined slot 36,39 


defining 
dynamic 39 
static 39 


validity of 39 
detection of syntactical errors 29 
diagnostic message chain 30 
. diagnostic messages 15 
allocation to phases 466-473 
parameters in dictionary chain 30 
diagnostics 
for invalid characters 28 
syntax errors 28 


dictionary 
accessing 31 
annotated dump 25 
areas 31 
BCD entries 26 
codes 26 
communications region 17 
constant chain 60 
constructing 31 
default rules 34 
diagnostic message chain 30 
diagnostic messages 23 
dump 26 
embryo entry 29 
extended 26 
hash table 31 
identifiers 31 
normal extended 21 
normal size 26 
organization 17 
resident table 384 
search 31 
dictionary block 
as communications region 17 
control 21 
release 28 
size 15 
space allocation 21 
dictionary entries 
attributes 28 
AUTOMATIC chain 38 
code bytes 387 
constants 28 
copy made 36 
data byte 38 
defined data 39 
definition of types 32 
diagram for internal entry point 33 
dimension table 412 
dope vector descriptor 47 
dummy reference 35 
entry points 32 
expanded 39 
for file conditions 38 
for file constants 41 
for ON conditions 37 
for STATIC DSAs 61 
format 17 
formats 
AUTOMATIC chain delimiter 409 
BCD entries 407 


built-in-functions 406-407 
CHECK list 408 

code bytes 397-400 
compiler labels 404 
constants 405-406 

data items 395-396 

DED 410 

DED2 410 


dope vector skeletons 409 
dope vectors for temporaries 
DVD 411 


ENTRY code byte 393-394 
entry points 389-393 
entry type 1 389-391 
emtry type 2 391 

entry type 3 391-392 
entry type 4 392-393 


Index 


410-411 
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entry type 5 393 
error message 411-412 
EVENT data 406 
FED (Format Element Descriptor) 
files 405 
formal parameters 
GENERIC entry 393 
internal library functions 
label BCD entries 410 
label constants 404 
label variables 394-395 
ON condition 408 
ON statements 407-408 
optimization code byte 
options code byte 394 
parameter descriptions 
parameter lists 409 
pictures 408-409 
RDV 411 
second code byte 407 
SETS list 392 
STATIC DSA 411 
structure entries 396 
symbol table entries 
task identifiers 406 
variable information 400-401 
wprkspace requirements 409 
GENERIC 42 
INITIAL value list 413 
INITIAL values 412-413 
internal formats 387-413 
iterative DO-loops 28 
labels 30 
LIKE referemce 36 
optimization 34 
options code byte 34 
picture table 34 
pictures 38-39 
RDV and DVD 62 
record dope vector 47 
REVERT statements 38 
SIGNAL statements 38 
skeleton dope vector 61 
statement labels 29 
symbol table 62 
dictionary logical phase 31 
dimensions, inherited 38 
DISPLAY statements, parameter list 56 
DO group stack 52 


404 


407 


394 
407 


409 


DO MAP 
chain 48 
table 48 


DO statements, count 29 
DO-loop control optimization 50 
dope vector descriptor, dictionary 
entry 47,62 
‘dope vector required’ bit 39 
dope vector, virtual origin slot 46 
DROP item in pseudo code 51 
DSA (see Dynamic Storage Area) 
DSLOTS 22 
DTSP 25 
DTSPC 25 
dummy arguments 

chamelons 45 

when created 45 
dummy dictionary reference 35 
dummy reference, in second file 38 
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410 


dummy references, in text 37 
DUMP option, effect on SIZE option 25 
dump 
of dictionary 26 
on SYSPRINT 25 
DUMP 
option 25 
parameter 25 
dumping, inter-phase 25 
DVD (see dope vector descriptor) 62 
dynamic defining 39 
dynamic dump 25 
Dynamic Storage Area (DSA) 51 
Optimization 64,464-465 
tasking information 63 


EMPTY built-in function 42 
END card 69 
END statements 
count 29 
inserted 29 
end-of-file indication 29 
end-of-program indication 29 
count 30 
end-of- program marker, 
phase 54 
entry labels, in source text 29 
entry point, formal parameter 36 
entry points, dictionary entries 32 
entry type 1 68 
ENVIRONMENT option, for file constants 


in pseudo-code 


41 


ENVIRONMENT string, with COBOL option 41 


environmental options, use of 15 
EOB (end of block) 
EOB operator 44 
epilogue code, examples 460-465 
erroneous references, replaced in text 
error chains 69 
ERROR condition 29 
error dictionary entries 69 
Error Editor 30 
error editor logical phase 69 
error message text 70 
error messages 
classification 23 
order of severity 28 
phase directory 23 
text 28 
errors and diagnostic messages 29 
errors, detected in read-in phase 31 
ESD (see External Symbol Dictionary) 
EXCLUSIVE second level marker 41 
EXEC STATEMENT 15 
explicitly generated statements, in 
pretranslator phase 40 
expression, definition 42 
expressions 
array bounds 32 
initial value iteration factors 32 
string lengths 32 
structure 43 
extended dictionary 21,26 
external library routines 
External Symbol Dictionary 
ESD cards 67 
in data flow diagram 16 


439 


37 


factored attribute table 34 
factored attributes 34 

file conditions, 
final assembly logical phase 67 
First Level Directory, format 385 


flow trace, not carried out by compiler 


FLOW/TRACE facilities 26.1 
flow/trace markers 86,86.1 


flowcharts (see also Phases and Modules) 


organization 71 
overall compiler logic 72-73 
resident control phase 74 
formal parameter list 39 
formal parameters, in CHECK or NOCHECK 
lists 38 
formats of dictionary entries 
freed registers 67 
FREEDSA 55 
function calls 42 
function references 41 
functions 32 


387-413 


generic built-in functions 33 
GENERIC entry label 42 

generic phase 43 

GET statements, library call 58 
GLOBAL region boundary 49 


halfword binary items 65 


hash chain, used to scan dictionary 37 


hash chains 33 
hash table 33 
address 31 
deleted 32 
in dictionary 31 
housekeeping 38 


identifiers 
contextual use 31 
implicit definition 31 
in compile-time processor output 
string 30 
in dictionary logical phase 31 
in multiple declarations 35 
when rejected 35 
IDV (see Initial Dope Vector) 
IEMAA 21 
IEMAF control section 458 
IEMKTAB macro 485 
IEMKTCA macro 483-484 
IF statements, count 29 


IHELSP 56 

IHEMAIN 69 
IHEQERR 68 
IHEOTIC 68 


IHESADA 68 

IHESADB 68 

IHESTGA 54 

IHESTGB 54 

in-line pseudo code 52-53 

INCLUDE data set 27 

inherited dimensions 38 

INITIAL attribute, second file entries 
Initial Dope Vector, scan for 
Statements 51 


dictionary entries 38 


67 


36 


initial labels 

in pseudo-assignment statements 30 

subscripted label variables 30 
initialization 

of compiler 21 

of control routines 15 
input, original 27 
input text 17 

end-of-file indication 29 
input/output 

control routines 15 

control routines 23 

data set usage table 24 

data sets 15 

library call for RECORD 1/0 56 
insertion file 66-67 


insignificant blanks, removed fron input 


text 29 
inter-phase dumping 25 
interface 
with data sets 23 
with operating system 15 
intermediate file 24 
internal code 29 
in text string 17 
internal entry point, diagram 33 
internal formats of dictionary 
entries 387-413 
Internal Formats of Text 414-448 
internal library routines 438-439 
interruptions, control routines 15 
invalid attributes, check for 34 
invalid characters 
diagnostics 28 
replaced by blanks 27 
used as markers 28 
invalid pictures 38 
invariance of subscripts 
IRREDUCIBLE 36 
iSUB references 40 
iSUBS 43 
ITDO region boundary 49 
iteration factors, initial value 32 
iterative DO-loops, dictionary entries 


48-49 


Job Control Language 15 
JOB statement 15 

job step 15 

job termination 23 


K phases, table handling routines 
KEYID routine 384 
KEYWD routine 384 
Keyword tables 
construction 384 
in read-in logical phase 30 


label table 29 
labels, inserted in dictionary 30 
level stack 37 
library call sequences 
for not in-line CHAR and BIT string 
for stroage triples 59 
library call 
data transmission 58 


Index 


28 


483-487 


59 
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GET and PUT statements 58 
initialization 58 
RECORD-oriented I/O 56 
termination 58 
library calling sequences 438 
library conversion routines 68 
library error package 66 
library routines 
external 439 


FREEDSA 55 
IHELSP 56 

IHEQERR 68 
IHEQTIC 68 
IHESADA 68 
IHESADB 68 


IHESTGA 54 

IHESTGB 54 

internal 438-439 
library work store (LWS) 63 
Library, call code 46 
LIKE attribute 36 
LIKE chain 36 
line numbering 27 
Link Library 15 
Linkage Editor 15 
Linkage Loader 15 


lists 
SUBS/REGION 48 
USE 48 


load-ahead technique 35 

loader text, TXT cards 68 

location counter, for assembled code 68 
logical phases, table 18-19 

LWS (see library work store) 63 


machine instructions, in text string 17 
MACRO option 24,27 
macro-code interpreter 28 
main storage 
release of 26 
requirements 22 
Map, Phase-in-Storage 383 
marker byte function references 41 
markers (see also second level markers) 41 
argument 52 
constant 37 
end-of-program 54 
function call 42 
multiple assignment 54 
P format 37 
procedure calls 42 
pseudo-variable 54 
'unsafe' 48 
use of invalid characters 28 
wanted or not wanted 44 
match chain, in SUBS TABLE 49 
message directory block 28 
messages (see also diagnostic messages, 
error messages) 
classification 23 
control routines 23 
diagnostic 15 
dictionary chain 23 
misaligned argument 65 
misaligned operands 65 
mixed overlay defining 47 
modules (see also Phases and Modules) 
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compiler control 24-26.1 
IEMAA 21 

MTF (multiplier function) 

MTF statement 39 

multiple assignment markers 54 

MULTIPLE ASSIGNMENT triples 59 


multiple declarations 35 


NAME card 69 

nested procedures, unnested at object 
time 68 

nesting, patch code 48 

NOCHECK lists, formal parameters 38 
'not sold' temporaries 42 

null arguments, in parameter lists 
NULL built-in function 42 

NULLO built-in function 42 


57-58 


object program 17 
OBJNM parameter 69 
OFFSET slots 403-404 
OFFSET 2 slot, diagram 402 
offset, calculation in structure 
processor 46 
ON conditions, dictionary entries 37 
ON statements, count 29 
OPEN control block 41 
OPEN statements, parameter list 57 
opening of data sets 21 
operators, in compile-time processor output 
string 30 
optimization byte 34 
optimization logical phase 47 
storage blocks 22 
optimization 
of DSA 64 
subscripts 48-49 
option list, printing 21 
options code byte 34 
options list, initial scan 21 
options 
ATR 39 
BY NAME 40 
check for legal combinations 58 
consistency 29 
Control Code word 17 
control section 25 
environmental 15 
in communications region 17 
in data flow diagram 16 
instructions to compiler 15 
interpretation of 15 
MACRO 27 
scanned 34 
source program 15 
status byte 15 
stored in dictionary 17 
TRACE/PATCH 26 
XREF 39 
ORDER, default setting 47 
organization, diagram 20 
original input 27 
output string 
` from compile-time processor 30 
in read-in phase 29 
output, of read-in phase 29 


overlay defining 47 BO 28 


mixed 47 BP through BV 28 
scalars 47 BW 28,93 
undimensioned structures 47° BX 26,105,111 
CA 30,112 
cc 30,113 
padding, calculation in structure CE 30,113 
processor 46 cG 30 
parameter description, in entry CI 30-31,106,114 
declaration 42 CK 30 
parameter list CL 30,107,115 
DISPLAY statements 56 CM 30 
for library call initialization 58 CN 30 
for OPEN and CLOSE statements 57 CO 30-31,108,116 
library calls 56 CP 30 
null arguments 57 CR 30 
WAIT statements 56 CS 30-31,109,117 
parameter matching 32 cT 30 
parameter registers 51 cV 30-31,110,118 
parameters, of diagnostic messages 30 cw 30 
PARTIAL SAFE/UNSAFE boundaries 49 ED 33,135 
patch code EF 33 
in nest of loops 48 EG 33-34,120,135 
in optimization phase 48 EH 34 
PATCH/TRACE option 26 EI 34,121,137-138 
patch file 47 EJ 34 
PATCH facilities 26.1 EK 35 
PEXP (see pointer expression) EL 35,122,140-141 
PEXP statement 36 EM 3 
deleted 39 EP 35-36,123,143-144 
phase deleting 23 EV 36 
phase directory 384 EW 36,124,145 
construction 23 EY 36,125,146 
error messages 23 F1 26.1,161 
format 386 FA 36-37,126,147-148 
status byte 15 FE 37,127,149-150 
phase loading 23 FI 37,128,150-151 
phase marking 23 FK 37,129,152 
Phase-in-Storage Map 383 FO 37-38,130,153 
phase, wanted/not wanted 23,35,44 FQ 38,131,154-155 
Phases and Modules - Guide 379-382 FT 38-39,132,156-157 
Phases and Modules - Descriptions, FV 39,133,158-159 
Flowcharts, and Subroutine Tables FX 39-40,134,160-161 
AA 21,74, 75-77 GA 41,163,171 
AB 21,74,78-79 GB 41-42,164,172-173 
AC 24,74,79 Gc 41 
AD 25,74,79 GK 41,165,174 
AE 25,74,80 GO 42,175 
AF 25,74,80 GP 42,166,176-177 
AG 25,74,80 GU 43,167,179-180 
AH 26,74 HF 43,168,181-182 
AI 26,74 HK 43,169,183 
AJ 26,74 HP 43,170,184 
AK 26,74,80 IA 44,186,194 
AL 26,74,81-85 IG 45,187,195 
AM 26,74, 86 IK 45,188,196 
AN 26,81-85 IL 45,189,196 
AS 27,88, 94-95 IM 45,190,196-197 
AT 26,74.1,86,86.1 | IT 45,191,198-199 
AV 27,89, 96 IX 45-46,192,199 
BC 27-28,90, 97-98 JD 46,193,200 
BE 27 JI 46,202,205 
BF 27 JK 46-47,203,206-207 
BG 28,91,100-101 JP 47,204,208 
BI 28 JZ 26.1,74, 208 
BJ 28 KA 48,210,220 
BM 28,92,102 KB 48 
BN 28 KC 48,212,221 
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55-56, 255, 294-295 
56,256,297 
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57-58, 258, 304 
58,259,305 
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59, 261, 307-309 
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61-62,321,331-332 
62,322,333 
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62-63, 323, 334-335 
63,324, 336-337 
63-64, 325, 338-339 
64,326, 340-341 
65,327, 342-343 
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66, 346, 349-350 

66 

66 

66, 347, 351-352 
67,348,353 

67 

67 

67, 356, 365 
67,357,366 

67-68, 358, 367 
67-68 

68, 359, 368-369 
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UD 69,361,372 
UE 69, 362,373-374 
UF 69, 363,375-376 
UH 69 
UI 69 
XA 69,364,378 
XB 69 
xc 69 
XF 69 
XG through YY 69-70 
phases 
branch after execution 17 
communication between 17 
control between 17 
logical 17 
Aggregates 18,46-47,201 
Compile-time Processor 18,27-28,87 
Dictionary 18,31-40,119 
Error Editor 19,69,364 
Final Assembly 19,67-69,355 
Optimization 18,47-50,209 
Pretranslator 18,40-43,162 
Pseudo-code 18,50-60, 237 
Read-In 18,28-31,104 
Register Allocation 19, 66-67,345 
Storage Allocation 19,60-65,318 
Translator 18,43-46,185 
organization 17 
physical 17 
table 18-19 
physical registers, use 51 
picture 
chain 34,38 
contextual use 31 
dictionary entry 34,39 
marker 37 
table 34 
pointer expression (PEXP) 39 
POINTER, in pointer expression 39 
prefix form 44 
preprocessor 46 
in aggregates phase 46 
48-character set 26.1 


pretranslator logical phase, control passed 


to 
procedure calls 42 
PROCEDURE statements, count 29 
PROCEDURE-ENTRY-BEGIN chain 29 
processing program 15 
program check handling 23 
prologue 61 

contruction 63 
prologue code 64 

examples 460-465 
prologue time 38 
pseudo-code logical phase 50 
pseudo-code 

definition 50 

design 50,429-432 

DROP item 51 

generation using BXH and BXLE 

instructions 47 

in-line 52-53 

skeletions 58 

temporary descriptions 438 
pseudo-variable markers 54 
pseudo-variables 32 

scan in pseudo-code phase 59 


correction 29 
detection 29 
in read-in phase 29 
SYSIN 15 l 
opening 21 
SYSLIN 15 
SYSPRINT 15 
dump 25 
opening 21 
SYSPUNCH 15 
opening 21 


system generation, tables 458-459 
SYSUT1 15 
SYSUT3 15 


closed for output 25 
control 24 

open for input 25 
opening 21 

ZURD routine 25 


table control area 483 
table control block area 48 
table of logical phases 18-19 


tables and routine directories, introduction 
TASK option, code bytes 41 

tasking information in DSA 63 

TCA (see table control area) 

TDPSCIE 25 

temporary description stack 436-437 


temporary descriptors 51 
Temporary Result Descriptor Triples (TMPD) 
temporary workspace 51 
termination error messages 23 
termination of compilation 70 
termination, of statements 30 
terms used during compilation 439-448 
testing, for consistency of attributes 32 
text additions 
BUY statements 40 
I/O statements 40 
SELL statements 40 
statements within statements 40 
temporary storage 40 
unbrella symbol 40 
text blocks 
chaining 22 
control 21 
markers 28 
release 28 
size 15 
space allocation 21 
spilled 17 
symbolic name 17 
text chain 39-40 
text code bytes 17 
first level table 
is pseudo-code 429 
on entry to translator phases 
second level table 417-418 
text formats 
absolute code 
after read-in phase 
in pseudo-code 429 
internal 414 
triples 426-428 
text scratch storage 39-40 
text string processing 17 


415-416 


424-425 


433-434 
418-423 
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51,436 


text, annotated dump 25 
text, of error messages 28 
Third Level Tables 385 


TMPD (see Temporary Result Descriptor Triples) 


transfer vector 27 
to control routines 21 
transformation subscripts 
translation table 29 
translator logical phase 
generic phase 43 
stacker phase 43 
triple names (see Appendix D.11) 


48-49 


triples 
ASSIGNMENT 59 
format 44 
MULTIPLE ASSIGNMENT 59 
PTCH 47 


SPECIAL ASSIGNMENT 59 
when generated 44 
TSLOTS 22 
TXT (see loader text) 
type 1 entry 68 
types of dicticnary entries 32 


unary profixed triples 46 

undefines formal parameter 36 
undimensioned structure overlay defining 
‘unsafe' variables 48 

USE list 48 

USSL declaration 50 


validity check, PICTURF chain 38 
value scan 28 
Variable Data Area 

in AUTOMATIC chain 63 

in pseudo-code phase 55 
variable storage accumlator . 64 
variables 

aliasing 47 

RDV for CONTROLLFD or BASED 57 

symbol table 62 
VDA (see Variable Data Area) 
virtual origin slot of dope vector 46 


WAIT statements, parameter list 56 
warning messages 23 

weights, compare 44 

weights, stack 44 

work data sets (see data sets) 


XREF option 39 


ZCOMM 479 
ZPRNAM 67 

ZUBW 27 

ZURD 27 

ZURD routine 25 


48-character set 15 
concatenation 27 

ü8-character set preprocessor 26 
input 27 
output 27 

48-character syntax 26 


Index 


47 


STATIC DSA 61 
Status byte 15 
status indications 23,386 
status slot 

dictioary block 22 

text block 22 
storage 

attribute collection area 35 

auxiliary 17 

program too large 21 

spilled 17 

spilling 15 
storage allocation logical phase 60 
storage allocation table 450 
storage allocation, control routines 15 
storage blocks. 

availability 22 

span of complete statement 30 
storage dumping, control routines 15 
storage requirements 15,449-450 
storage size, as an argument 15 
string lengths 32 
structure assignment statements 43 
structure expressions 43 
structure level numbers 34 
structure processor, in aggregates 
phase 46 
SUBS/REGION list 48 
SUBS table 49 
subscript optimization 

commoning 48-49 

invariance 48-49 

transformation 48-49 
substitutions, in source text 29 
symbol table dictionary entry 62 
symbol variables, DED 
symbolic accumulator register 46 
symbolic name, text blocks 17 
symbolic references, conversion 15 
symbolic register counter 51 
symbolic registers 67 
syntactical errors 
syntax check 26.1,161 

correction 29 

detection 29 

in read-in phase 29 
SYSIN 15 

opening 21 
SYSLIN 15 
SYSPRINT 15 

dump 25 

opening 21 
SYSPUNCH 15 

opening 21 
system generation, tables 458-459 
SYSUT1 15 
SYSUT3 15 

closed for output 25 

control 24 

open for input 25 

opening 21 

ZURD routine 25 


table control area 483 

table control block area 48 
table of logical phases 18-19 
tables, control 86 
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tasking information in DSA 63 
TCA (see table control area) 
TDPSCIE 25 
temporary description stack 436-437 
temporary descriptors 51 
Temporary Result Descriptor Triples 
(TMPD) 51,436 
temporary workspace 51 
termination error messages 23 
termination of compilation 70 
termination, of statements 30 
terms used during compilation 439-448 
testing, for consistency of attributes 32 
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I/O statements  &40 
SELL statements 40 
Statements within statements 40 
temporary storage 40 
unbrella symbol 40 
text blocks 
chaining 22 
control 21 
markers 28 
release 28 
size 15 
space allocation 21 
spilled 17 
symbolic name 17 
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text code bytes 17 
first level table 415-416 
is pseudo-code 429 
on entry to translator phases 424-4825 
second level table 417-418 
text formats 
absolute code 433-434 
after read-in phase 418-423 
in pseudo-code 429 
internal 414 
triples 426-428 
text scratch storage 39-40 
text string processing 17 
text, annotated dump 25 
text, of error messages 28 
Third Level Tables 385 
TMPD (see Temporary Result Descriptor 
Triples) 
TRACEOUT data set 26 
TRACE/FLOW facilities 26.1 
trace/flow markers  86,86.1 
TRACE/PATCH option 26 
trace routine 86.1 
transfer vector 27 
to control routines 21 
transformation subscripts 48-49 
TRANSLATE built-in function 52,277 
translation table 29 
translator logical phase 
generic phase 43 
stacker phase 43 
triple names (see Appendix D.11) 


triples 
ASSIGNMENT 59 
format 44 


MULTIPLE ASSIGNMENT 59 
PTCH 47 
SPECIAL ASSIGNMENT 59 
when generated 44 
TSLOTS 22 
TXT (see loader text) 
type 1 entry 68 
types of dictionary entries 32 


unary prefixed triples 46 

undefined formal parameter 36 

undimensioned structure overlay 
defining 47 

'unsafe' variables 48 

USE list 48 

USSL declaration 50 
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value scan 28 
Variable Data Area 

in AUTOMATIC chain 63 

in pseudo-code phase 55 
variable storage accumlator 64 
variables 

aliasing 47 
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symbol table 62 US 
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VERIFY built-in function 53,277 
VERIFY instructions 26.1 
virtual origin slot of dope vector 46 


WAIT statements, parameter list 56 
warning messages 23 

weights, compare 44 

weights, stack 44 


work data sets (see data sets) 


XREF option 39 


ZCOMM 479 
ZPRNAM 67 

ZSTAT 26.1 
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ZURD routine 25 
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